OFFSET
0,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..100
MATHEMATICA
dp3Q[n_]:=Module[{il=IntegerLength[Floor[CubeRoot[n]]], c}, c=TakeDrop[RealDigits[ CubeRoot[ n], 10, 2il][[1]], il]; c[[1]]==Reverse[c[[2]]]]; Split[Select[Range[65000], dp3Q], (#2 - #1 == 1 &)][[;; , 1]] (* Harvey P. Dale, May 26 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Oct 15 1998
STATUS
approved