%I A128165
%S A128165 1,2,6,10,20,22,28,155,488,664,992,6162,7840,7975,8793,18961,32422,
%T A128165 148220,231625,332198,459121,462932,2115894,8108930,10336641,11789731,
%U A128165 15500046,23483195,46571611,48582404,77033887,105390951,132421841
%N A128165 Numbers n such that n divides 1 + Sum[ Prime[k], {k,1,n} ] = 1 + A007504(n).
%t A128165 s = 1; Do[s = s + Prime[n]; If[ Mod[s, n] == 0, Print[n]], {n, 2115894}]
%Y A128165 Cf. A000040, A007504, A045345, A128166, A128167, A128168, A128169, A128170, 
               A128171.
%Y A128165 Sequence in context: A005993 A028247 A065054 this_sequence A097646 A077084 
               A007926
%Y A128165 Adjacent sequences: A128162 A128163 A128164 this_sequence A128166 A128167 
               A128168
%K A128165 hard,nonn
%O A128165 1,2
%A A128165 Alexander Adamchuk (alex(AT)kolmogorov.com), Feb 22 2007, extended Feb 
               22 2007
%E A128165 More terms from Ryan Propper (rpropper(AT)stanford.edu), Apr 05 2007