OFFSET
1,1
COMMENTS
Same as sequence A001093 (n^3+1) starting from the fourth term.
MATHEMATICA
crQ[n_]:=Module[{r=Surd[n, 3], cr, m}, cr=RealDigits[r, 10, 10]; m= cr[[2]]+1; !IntegerQ[r]&&cr[[1, m]]==0]; #[[1]]&/@ Split[ Select[ Range[65000], crQ], #1+1==#2&] (* Harvey P. Dale, Aug 05 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved