OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..46 (terms < 2.5*10^12)
Chris Caldwell, The First 10,000 Primes
EXAMPLE
83214450 * 817931313 = 68063704349072850.
MATHEMATICA
s = 0; Do[p = Prime[n]; If[ Mod[s += p, n + 1] == 0, Print[n]], {n, 10^8}]
PROG
(PARI) s=0; for(n=1, 100000, s=s+prime(n); if(s%(n+1)==0, print(n))) (Hudson)
CROSSREFS
KEYWORD
nonn
AUTHOR
Anne M Donovan (Anned3005(AT)aol.com), Oct 24 2004
EXTENSIONS
More terms from Mark Hudson (mrmarkhudson(AT)hotmail.com), Oct 25 2004
Further terms from Robert G. Wilson v, Oct 26 2004
a(24)-a(26) from Donovan Johnson, Sep 03 2008
a(27)-a(30) from Donovan Johnson, May 03 2010
a(31)-a(32) from Donovan Johnson, Oct 16 2012
STATUS
approved