OFFSET
1,3
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..500
EXAMPLE
46416^4 starts with 46416.
MATHEMATICA
Join[{0}, Sort[ Table[ 10^i, {i, 0, 22} ]~Join~Select[ Table[ Ceiling[ 10.^(1/3)*10^i ], {i, 0, 22} ], Take[ IntegerDigits[ #^4 ], Length[ IntegerDigits[ # ] ] ]==IntegerDigits[ # ]& ]~Join~Select[ Table[ Ceiling[ 10.^(2/3)*10^i ], {i, 0, 22} ], Take[ IntegerDigits[ #^4 ], Length[ IntegerDigits[ # ] ] ]==IntegerDigits[ # ]& ] ] ]
PROG
(PARI) r=41; print1(1, ", "); e=4; for(n=2, r, p=round((10^(1/(e-1)))^n); f=p^e; b=10^(#Str(f)-#Str(p)); if((f-lift(Mod(f, b)))/b==p, print1(p, ", "))); \\ Arkadiusz Wesolowski, Dec 10 2013
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Erich Friedman, Jan 29 2000
EXTENSIONS
0 inserted by Juhani Heino, Aug 31 2015
STATUS
approved