A029980 - OEIS

%I #19 Aug 11 2024 14:41:30

%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="https://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_