OFFSET
1,1
REFERENCES
C. A. Pickover, "Keys to Infinity", New York: Wiley, p. 7, 1995.
LINKS
Eric Weisstein's World of Mathematics, Super-d Number.
MATHEMATICA
stp3Q[n_]:=Module[{idn=IntegerDigits[n], id3=IntegerDigits[3n^3]}, MemberQ[ Partition[ id3, 3, 1], {3, 3, 3}]&&idn==Reverse[idn]]; Select[Range[ 1200000], stp3Q] (* Harvey P. Dale, Jan 16 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, May 15 1998
STATUS
approved