%I #13 Mar 31 2021 17:23:41
%S 3,31,307,3001,30011,300007,3000017,30000001,300000007,3000000019,
%T 30000000001,300000000077,3000000000013,30000000000011,
%U 300000000000089,3000000000000037,30000000000000029,300000000000000011,3000000000000000037,30000000000000000041
%N Smallest prime in which the n-th significant digit is a 3.
%p seq(nextprime(3*10^(j-1)-1), j=1..32);
%t Join[{3},Table[NextPrime[FromDigits[PadRight[{3},n,0]]],{n,2,20}]] (* _Harvey P. Dale_, Jun 15 2015 *)
%o (Python)
%o from sympy import nextprime
%o def a(n): return nextprime(3*10**(n-1)-1)
%o print([a(n) for n in range(1, 21)]) # _Michael S. Branicky_, Mar 31 2021
%o (PARI) a(n) = nextprime(3*10^(n-1)); \\ _Michel Marcus_, Mar 31 2021
%Y Cf. A069588.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Mar 25 2002
%E More terms from _Sascha Kurz_, Mar 28 2002
|