OFFSET
1,3
LINKS
Patrick De Geest, World!Of Numbers, Palindromic cubes in bases 2 to 17.
MATHEMATICA
For[i = 1, i < 1000000, i++, tmp = IntegerDigits[i^3, 13]; If[tmp == Reverse[tmp], Print[i]]; ]; (* Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 16 2006 *)
Select[Range[0, 88*10^7], PalindromeQ[IntegerDigits[#^3, 13]] &] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 05 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, May 15 1998
EXTENSIONS
More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 16 2006
STATUS
approved