|
%I #13 May 18 2017 09:59:53
%S 2,3,5,7,11,13,197,211,239,281,337,379,619,647,661,773,1013,1069,1097,
%T 1153,1787,1801,1871,1913,2237,2251,2293,2617,2659,2687,2729,39397,
%U 41959,42743,43331,43933,44129,45697,45893,46691,47279,48259
%N Primes that are palindromic in base 14.
%H John Cerkan, <a href="/A029981/b029981.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,14][[1]]]==FromDigits[Reverse[RealDigits[n,14][[1]]]]; lst={}; Do[p=Prime[n]; If[f[p],AppendTo[lst,p]],{n,8!}]; lst (* _Vladimir Joseph Stephan Orlovsky_, Aug 10 2009 *)
%K nonn,base
%O 1,1
%A _Patrick De Geest_
|
