Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #6 Mar 30 2012 17:30:50
%S 4,8,9,121,343,1331,10201,94249,1030301,900075181570009,
%T 10022212521222001,12124434743442121,12323244744232321,
%U 12341234943214321
%N Palindromic prime powers of prime numbers.
%C Up to 10^14, there are only 9 palindromic prime powers of prime numbers.
%t 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]
%Y Cf. A053810, A075308, subset of A072037.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Oct 26 2002
%E Edited and corrected by _Robert G. Wilson v_, Oct 31 2002