A139052 Array read by rows: row n lists the first two primes with n digits.
2, 3, 11, 13, 101, 103, 1009, 1013, 10007, 10009, 100003, 100019, 1000003, 1000033, 10000019, 10000079, 100000007, 100000037, 1000000007, 1000000009, 10000000019, 10000000033, 100000000003, 100000000019, 1000000000039, 1000000000061
Offset: 1
Programs
-
Mathematica
ftp[d_]:=Module[{np1=NextPrime[10^(d-1)]},{np1,NextPrime[np1]}]; Array[ ftp,15]//Flatten (* Harvey P. Dale, Mar 27 2021 *)
Extensions
More terms from Sean A. Irvine, Jun 02 2011