OFFSET
1,2
EXAMPLE
735^3 = 39706(537)5.
MATHEMATICA
Select[Range[660000], SequenceCount[IntegerDigits[IntegerReverse[#^3]], IntegerDigits[#]]>0&] (* Harvey P. Dale, May 13 2025 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Resta, Jan 30 2006
STATUS
approved
