|
|
|
|
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
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|