|
Search: id:A128165
|
|
|
| A128165 |
|
Numbers n such that n divides 1 + Sum[ Prime[k], {k,1,n} ] = 1 + A007504(n). |
|
+0
7
|
|
| 1, 2, 6, 10, 20, 22, 28, 155, 488, 664, 992, 6162, 7840, 7975, 8793, 18961, 32422, 148220, 231625, 332198, 459121, 462932, 2115894, 8108930, 10336641, 11789731, 15500046, 23483195, 46571611, 48582404, 77033887, 105390951, 132421841
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
s = 1; Do[s = s + Prime[n]; If[ Mod[s, n] == 0, Print[n]], {n, 2115894}]
|
|
CROSSREFS
|
Cf. A000040, A007504, A045345, A128166, A128167, A128168, A128169, A128170, A128171.
Sequence in context: A005993 A028247 A065054 this_sequence A097646 A077084 A007926
Adjacent sequences: A128162 A128163 A128164 this_sequence A128166 A128167 A128168
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Feb 22 2007, extended Feb 22 2007
|
|
EXTENSIONS
|
More terms from Ryan Propper (rpropper(AT)stanford.edu), Apr 05 2007
|
|
|
Search completed in 0.002 seconds
|
