|
%I #18 May 17 2017 11:29:18
%S 2,3,5,7,11,313,353,379,431,457,523,601,653,719,797,823,863,941,967,
%T 1033,1163,1229,1307,1373,1399,1451,1543,1621,1987,2053,2131,30941,
%U 33151,33827,34841,36037,36713,37571,38923,42667,44201,45553,46411
%N Primes that are palindromic in base 13.
%H John Cerkan, <a href="/A029980/b029980.txt">Table of n, a(n) for n = 1..10000</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of Palindromic Primes</a>
%t f[n_]:=FromDigits[RealDigits[n,13][[1]]]==FromDigits[Reverse[RealDigits[n,13][[1]]]]; lst={}; Do[p=Prime[n]; If[f[p],AppendTo[lst,p]],{n,8!}]; lst (* _Vladimir Joseph Stephan Orlovsky_, Aug 10 2009 *)
%t Select[Prime[Range[5000]],IntegerDigits[#,13]==Reverse[ IntegerDigits[ #,13]]&] (* _Harvey P. Dale_, May 05 2017 *)
%o (PARI) isok(n) = if (isprime(n), my(d=digits(n, 13)); d == Vecrev(d)); \\ _Michel Marcus_, May 16 2017
%K nonn,base
%O 1,1
%A _Patrick De Geest_
|
