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,2

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.

Example

121=A000961(42)=A002113(21), therefore 121 is a term;
131=A000961(46)=A002113(22), therefore 131 is a term.

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 *)

Crossrefs

Intersection of A000961 and A002113, union of A002385 and A084093.

Sequence in context: A098897 A265641 A192140 * A288927 A342513 A086753

Adjacent sequences: A084089 A084090 A084091 * A084093 A084094 A084095

Keyword

nonn,base

Author

Reinhard Zumkeller, May 11 2003

Extensions

Corrected and extended by T. D. Noe, Oct 25 2006

Status

approved