A076996 a(1) = 2, a(n+1) is the largest prime <= n*a(n).

2, 2, 3, 7, 23, 113, 677, 4733, 37861, 340723, 3407221, 37479401, 449752801, 5846786333, 81855008659, 1227825129859, 19645202077673, 333968435320439, 6011431835767867, 114217204879589437, 2284344097591788733

Offset

1,1

Links

Table of n, a(n) for n=1..21.

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

Adjacent sequences: A076993 A076994 A076995 * A076997 A076998 A076999

Keyword

nonn

Author

Amarnath Murthy, Oct 26 2002

Extensions

More terms from Sascha Kurz, Jan 26 2003

Status

approved