User blog comment:DrCocktor/Cubes in the form 1 + k + k^2/@comment-32213734-20190413044228

I checked all k from 1 to 3030000000, and only cube is 343 for k = 18.

(I was going to check all k up do 10000000000, but apparently it needs 128 bit arithmetics, and I do not know how to do it).

Delphi code:

... var e,i:int64; a:extended; ... e:=18; repeat inc(e); i:=e*e+e+1; a:=power(i,1/3); until (frac(a)=0) or (e=3030000000); ...