|
%I #13 May 15 2017 18:29:17
%S 2,3,5,7,109,127,173,191,227,337,373,419,601,619,683,701,719,6967,
%T 7129,7867,8443,9181,9343,10333,10657,11071,11971,12547,13033,13367,
%U 13691,14843,15581,16319,16481,17957,18119,18371,19433,27067,27967
%N Primes that are palindromic in base 9.
%H John Cerkan, <a href="/A029977/b029977.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,9][[1]]]==FromDigits[Reverse[RealDigits[n,9][[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_
|
