OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..348
MAPLE
A[1]:= 9:
for n from 2 to 30 do
if n::even then
for d from 1 do
x:= nextprime(A[n-1]*10^d);
if x < (A[n-1]+1)*10^d then A[n]:= x; break fi
od
else
d:=ilog10(A[n-1])+1;
for x from A[n-1]+10^d by 10^d do
if isprime(x) then A[n]:= x; break fi
od
fi
od:
seq(A[i], i=1..30); # Robert Israel, Nov 11 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Mar 27 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Apr 03 2002
STATUS
approved