A084092 Prime power decimal palindromes.
1, 2, 3, 4, 5, 7, 8, 9, 11, 101, 121, 131, 151, 181, 191, 313, 343, 353, 373, 383, 727, 757, 787, 797, 919, 929, 1331, 10201, 10301, 10501, 10601, 11311, 11411, 12421, 12721, 12821, 13331, 13831, 13931, 14341, 14641, 14741, 15451, 15551, 16061, 16361
Offset: 1
Examples
121=A000961(42)=A002113(21), therefore 121 is a term; 131=A000961(46)=A002113(22), therefore 131 is a term.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..600
- Eric Weisstein's World of Mathematics, Palindromic Prime.
- Eric Weisstein's World of Mathematics, Prime Power.
Programs
-
Mathematica
Join[{1}, Select[Range[16370], Reverse[x = IntegerDigits[#]] == x && PrimePowerQ[#] &]] (* Jayanta Basu, Jun 24 2013 *) Join[{1},Select[Range[17000],PalindromeQ[#]&&PrimePowerQ[#]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 07 2019 *)
Extensions
Corrected and extended by T. D. Noe, Oct 25 2006