OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..350
MATHEMATICA
dtcQ[n_]:=Total[Boole[Table[IntegerQ[Surd[k^3-n, 3]], {k, Floor[ Surd[ n, 3]]+1, 100}]]]>0; Select[Range[9, 14000, 10], dtcQ] (* Harvey P. Dale, Aug 31 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Corrected by Ray Chandler, Nov 29 2008
STATUS
approved