OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..3000
MATHEMATICA
np[n_]:=Module[{a=NextPrime[10^n]}, {a, NextPrime[a], NextPrime[NextPrime[ a]]}]; Flatten[Array[np, 12, 0]] (* Harvey P. Dale, Dec 14 2011 *)
Flatten@Array[NextPrime[10^#, {1, 2, 3}]&, 12, 0] (* Giorgos Kalogeropoulos, May 06 2019 *)
PROG
(Python)
from sympy import nextprime
def auptodigs(maxdigits):
alst = []
for n in range(1, maxdigits+1):
p1 = nextprime(10**(n-1))
p2 = nextprime(p1)
p3 = nextprime(p2)
alst.extend([p1, p2, p3])
return alst
print(auptodigs(11)) # Michael S. Branicky, May 07 2021
CROSSREFS
KEYWORD
base,nonn,tabf
AUTHOR
Omar E. Pol, Apr 08 2008
EXTENSIONS
More terms from Max Alekseyev, Dec 12 2011
a(32) and beyond from Michael S. Branicky, May 07 2021
STATUS
approved