login
A076996
a(1) = 2, a(n+1) is the largest prime <= n*a(n).
1
2, 2, 3, 7, 23, 113, 677, 4733, 37861, 340723, 3407221, 37479401, 449752801, 5846786333, 81855008659, 1227825129859, 19645202077673, 333968435320439, 6011431835767867, 114217204879589437, 2284344097591788733
OFFSET
1,1
MAPLE
a[1] := 2: for i from 2 to 35 do a[i] := prevprime((i-1)*a[i-1]+1):od:seq(a[i], i=1..35);
MATHEMATICA
nxt[{n_, a_}]:={n+1, NextPrime[a(n+1)+1, -1]}; Join[{2}, NestList[nxt, {1, 2}, 30][[All, 2]]] (* Harvey P. Dale, Jan 20 2019 *)
CROSSREFS
Sequence in context: A098738 A291742 A083701 * A139148 A293246 A185387
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Oct 26 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 26 2003
STATUS
approved