OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
A[1]:= 2:
for n from 1 to 99 do A[n+1]:= nextprime(n*floor(A[n]/10^(ilog10(A[n])))) od:
seq(A[i], i=1..100); # Robert Israel, Mar 23 2020
CROSSREFS
KEYWORD
AUTHOR
Juri-Stepan Gerasimov, Mar 12 2009
EXTENSIONS
Corrected by D. S. McNeil, Mar 21 2009
STATUS
approved