OFFSET
1,2
PROG
(PARI) x = 1; s = 0; S = Set([]); i = 1; while (1, s += prime(i); d = divisors(s); j = 1; while (setsearch(S, d[j]), j++); n = d[j]; S = setunion(S, Set(n)); if (n == x, print(i); while(setsearch(S, x), x++)); i++); \\ David Wasserman, Jan 07 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 03 2005
EXTENSIONS
More terms from David Wasserman, Jan 07 2009
STATUS
approved