OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..996
MAPLE
seq(nextprime(3*10^(j-1)-1), j=1..32);
MATHEMATICA
Join[{3}, Table[NextPrime[FromDigits[PadRight[{3}, n, 0]]], {n, 2, 20}]] (* Harvey P. Dale, Jun 15 2015 *)
PROG
(Python)
from sympy import nextprime
def a(n): return nextprime(3*10**(n-1)-1)
print([a(n) for n in range(1, 21)]) # Michael S. Branicky, Mar 31 2021
(PARI) a(n) = nextprime(3*10^(n-1)); \\ Michel Marcus, Mar 31 2021
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Mar 25 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 28 2002
STATUS
approved