



1, 3, 10, 57, 97, 103, 113, 180, 305, 761, 893, 1047, 1069, 1177, 1214, 1425, 1473, 1481, 1700, 2079, 2543, 2767, 2901, 3027, 3331, 3849, 4239, 5199, 5425, 7407, 8079, 10967, 11541, 15012, 16335, 17248, 24969, 25157, 30383, 34055, 38147, 38861
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

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


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++); [From David Wasserman, Jan 07 2009]


CROSSREFS

A111271 [From David Wasserman, Jan 07 2009]
Sequence in context: A203416 A002218 A107871 * A242953 A112101 A159321
Adjacent sequences: A111267 A111268 A111269 * A111271 A111272 A111273


KEYWORD

nonn


AUTHOR

N. J. A. Sloane, Nov 03 2005


EXTENSIONS

More terms from David Wasserman, Jan 07 2009


STATUS

approved



