OFFSET
1,2
COMMENTS
a(n) is the smallest prime obtained by prefixing a(n-1) with a number of the form d*10^k where d is a single digit, 0 < d < 10, and k >= 0. Conjecture: d*10^k always exists.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..52
EXAMPLE
a(8) = 304234211; deleting 3 gives 4234211 = a(7).
MAPLE
a:= proc(n) option remember; local k, m, d, p;
if n=1 then 1 else k:= a(n-1);
for m from length(k) do
for d to 9 do p:= k +d*10^m;
if isprime(p) then return p fi
od od
fi
end:
seq(a(n), n=1..20); # Alois P. Heinz, Jan 12 2015
PROG
(Python)
from sympy import isprime
from itertools import islice
def agen(an=1):
while True:
yield an
pow10 = 10**len(str(an))
while True:
found = False
for t in range(pow10+an, 10*pow10+an, pow10):
if isprime(t):
an = t; found = True; break
if found: break
pow10 *= 10
print(list(islice(agen(), 18))) # Michael S. Branicky, Jun 23 2022
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 19 2002
EXTENSIONS
More terms from Ray Chandler, Jul 23 2003
Offset changed to 1 by Alois P. Heinz, Jan 12 2015
Definition clarified by N. J. A. Sloane, Jan 19 2015
STATUS
approved