|
%I #22 Apr 03 2023 10:36:10
%S 2,3,11,101,307,30001253,100111001,110111011,111010111,111091111,
%T 1011099011101,1100011100011,1100101010011,1101010101011,
%U 100110101011001,100110990111001,101000010000101,101011000110101,101110000011101
%N Primes p such that p^2 is a palindromic square.
%C Record prime base number of a sporadic palindromic square is 13661181333262459.
%H Hans Havermann (via Feng Yuan), <a href="/A065378/b065378.txt">Table of n, a(n) for n = 1..61</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/square.htm">Palindromic Squares</a>
%H G. L. Honaker, Jr. and C. Caldwell, <a href="https://t5k.org/curios/page.php?short=13661181333262459">Prime Curios!</a>
%H W. R. Marshall, <a href="https://web.archive.org/web/20020614225321/http://www.geocities.com/williamrexmarshall/math/palsq.html">Palindromic Squares</a>
%H F. Yuan, <a href="http://www.fengyuan.com/palindrome.html">Palindromic Square Numbers</a>
%e E.g. a(6) = 900075181570009 = p^2 with p = 30001253 and prime.
%t t={}; Do[p=Prime[n]; If[FromDigits[Reverse[IntegerDigits[p^2]]]==p^2,AppendTo[t,p]],{n,10^7}]; t (* _Jayanta Basu_, May 11 2013 *)
%Y Cf. A065379, A002778, A002779, A034822, A028816, A016106, A059744, A016113, A007573.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Nov 03 2001
%E Corrected by _Jayanta Basu_, May 11 2013
|
