|
%I #18 Mar 01 2023 04:43:32
%S 1,2,3,4,5,7,8,9,11,101,121,131,151,181,191,313,343,353,373,383,727,
%T 757,787,797,919,929,1331,10201,10301,10501,10601,11311,11411,12421,
%U 12721,12821,13331,13831,13931,14341,14641,14741,15451,15551,16061,16361
%N Prime power decimal palindromes.
%H Harvey P. Dale, <a href="/A084092/b084092.txt">Table of n, a(n) for n = 1..600</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PalindromicPrime.html">Palindromic Prime</a>.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimePower.html">Prime Power</a>.
%e 121=A000961(42)=A002113(21), therefore 121 is a term;
%e 131=A000961(46)=A002113(22), therefore 131 is a term.
%t Join[{1}, Select[Range[16370], Reverse[x = IntegerDigits[#]] == x && PrimePowerQ[#] &]] (* _Jayanta Basu_, Jun 24 2013 *)
%t Join[{1},Select[Range[17000],PalindromeQ[#]&&PrimePowerQ[#]&]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 07 2019 *)
%Y Intersection of A000961 and A002113, union of A002385 and A084093.
%K nonn,base
%O 1,2
%A _Reinhard Zumkeller_, May 11 2003
%E Corrected and extended by _T. D. Noe_, Oct 25 2006
|
