OFFSET
1,1
COMMENTS
EXAMPLE
a(1) = 4 = 2^2; a(2) = 8 = 2^3; a(3) = 9 = 3^2; a(4) = 49 = 7^2; a(5) = 4489 = 67^2.
PROG
(PARI) list(lim)=my(v=List(), u=[4, 8, 9]); forprime(p=2, log(lim+=.5)\log(2), forprime(q=2, lim^(1/p), if(vecsort(concat(digits(q^p), u), , 8)==u, listput(v, q^p)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Mar 19 2013
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Jonathan Vos Post and Kevin L. Schwartz, Mar 19 2013
EXTENSIONS
a(6)-a(9) from Charles R Greathouse IV, Mar 20 2013
STATUS
approved