A076703 Palindromic prime powers of prime numbers.
4, 8, 9, 121, 343, 1331, 10201, 94249, 1030301, 900075181570009, 10022212521222001, 12124434743442121, 12323244744232321, 12341234943214321
Offset: 1
Programs
-
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]
Extensions
Edited and corrected by Robert G. Wilson v, Oct 31 2002
Comments