|
%I #10 Dec 31 2019 13:08:57
%S 919,929,9029,9049,9059,9109,9199,9209,9239,9319,9349,9419,9439,9479,
%T 9539,9619,9629,9649,9679,9689,9719,9739,9749,9769,9829,9839,9859,
%U 9929,9949,90019,90059,90089,90149,90199,90239,90289,90359,90379,90439
%N Primes starting and ending with 9.
%H Harry J. Smith, <a href="/A062335/b062335.txt">Table of n, a(n) for n = 0..1000</a>
%e 9679 is a member, as it is a prime and the first and the last digits are both 9.
%t fl9Q[n_]:=IntegerDigits[n][[1]]==IntegerDigits[n][[-1]]==9; Select[ Prime[ Range[10000]],fl9Q] (* _Harvey P. Dale_, Dec 31 2019 *)
%o (PARI) { default(primelimit, 10^6); n=-1; t=log(10); forprime (p=2, 10^6, if ((p-10*(p\10)) == 9 && (p\10^(log(p)\t)) == 9, write("b062335.txt", n++, " ", p); if (n==1000, break)) ) } \\ _Harry J. Smith_, Aug 05 2009
%Y Cf. A062332, A062333, A062334.
%K nonn,base,easy
%O 0,1
%A _Amarnath Murthy_, Jun 21 2001
%E More terms from Larry Reeves (larryr(AT)acm.org), Jun 29 2001
|
