OFFSET
1,1
COMMENTS
Up to 10^14, there are only 9 palindromic prime powers of prime numbers.
MATHEMATICA
a = {}; Do[pp = Prime[n]^Prime[i]; d = IntegerDigits[pp]; If[d == Reverse[d], a = Append[a, pp]], {n, 1, PrimePi[ Sqrt[10^21]]}, {i, 1, PrimePi[ Floor[ Log[ Prime[n], 10^21]]]}]; Sort[a]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Oct 26 2002
EXTENSIONS
Edited and corrected by Robert G. Wilson v, Oct 31 2002
STATUS
approved