OFFSET
1,1
COMMENTS
a(17) > pi(4*10^12). - Donovan Johnson, Jul 02 2010
MATHEMATICA
k = 0; s = 1; p = 2; lst = {}; While[k < 10^9, s = s + p; If[ Mod[s, ++k + 1] == 0, AppendTo[lst, k]; Print[{k, p}]]; p = NextPrime@ p]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ctibor O. Zizka, Mar 24 2009
EXTENSIONS
a(6)-a(8) from R. J. Mathar, Mar 26 2009
a(9)-a(11) from Donovan Johnson, Nov 15 2009
a(12)-a(13) from Ray Chandler, May 31 2010
a(14)-a(16) from Donovan Johnson, Jul 02 2010
STATUS
approved