OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
EXAMPLE
a(4) = 181: 1 followed by 3^4.
MATHEMATICA
Select[ Map[ FromDigits, Join[{1}, IntegerDigits[ # ]] & /@ Union[ Join[{1}, Flatten[ Table[n^i, {n, 2, Sqrt[10^5]}, {i, 2, Log[n, 10^5]}]]]]], PrimeQ[ # ] &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 23 2003
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Nov 26 2003
STATUS
approved