OFFSET
1,1
MATHEMATICA
Select[Range[600], !IntegerQ[CubeRoot[#]]&&NumberDigit[N[CubeRoot[#]], -1]==0&] (* Harvey P. Dale, Apr 22 2024 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved