A034126 Decimal part of cube root of a(n) starts with 0: first term of runs (cubes excluded).
9, 28, 65, 126, 217, 344, 513, 730, 1001, 1332, 1729, 2198, 2745, 3376, 4097, 4914, 5833, 6860, 8001, 9262, 10649, 12168, 13825, 15626, 17577, 19684, 21953, 24390, 27001, 29792, 32769, 35938, 39305, 42876, 46657, 50654, 54873, 59320, 64001
Offset: 1
Crossrefs
Cf. A034116.
Programs
-
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 *)
Comments