A090474 Beginning with 2, a(n+1) is the least prime == 1 (mod (Sum_{i=1..n} a(i))).

2, 3, 11, 17, 67, 101, 1609, 1811, 7243, 43457, 108643, 488893, 5214857, 23466857, 938674273, 3872031377, 29040235327, 542084392769, 65659972074139, 3179324963589889, 58420096205964211, 1849969713188866681, 76465414811806489481, 1881049204370439641233, 94052460218521982061649

Offset

1,1

Links

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

Mathematica

s = t = 2; Print[t]; Do[k = 1; While[ !PrimeQ[k*t + 1], k++ ]; p = k*t + 1; Print[p]; t += p, {n, 2, 30}] (* Ryan Propper, Jul 29 2005 *)

Crossrefs

Sequence in context: A051090 A263933 A061400 * A263934 A263935 A263936

Adjacent sequences: A090471 A090472 A090473 * A090475 A090476 A090477

Keyword

nonn

Author

Amarnath Murthy, Dec 02 2003

Extensions

More terms from Ryan Propper, Jul 29 2005

Further terms from David Wasserman, Nov 16 2005

Status

approved