|
%I #8 Mar 04 2018 03:12:29
%S 1,3,10,57,97,103,113,180,305,761,893,1047,1069,1177,1214,1425,1473,
%T 1481,1700,2079,2543,2767,2901,3027,3331,3849,4239,5199,5425,7407,
%U 8079,10967,11541,15012,16335,17248,24969,25157,30383,34055,38147,38861
%N Records in A111229.
%o (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
%Y Cf. A111271. - _David Wasserman_, Jan 07 2009
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Nov 03 2005
%E More terms from _David Wasserman_, Jan 07 2009
|
