A046285 Numbers k such that the sum of the first k primes is a lucky number.

10, 20, 34, 36, 46, 52, 56, 68, 72, 86, 88, 90, 96, 100, 102, 118, 130, 140, 144, 154, 166, 198, 228, 240, 242, 282, 318, 328, 348, 356, 360, 366, 392, 402, 418, 440, 452, 464, 472, 476, 510, 540, 556, 570, 572, 586, 592, 600, 604, 614, 638, 650, 654, 670, 684

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..730

Mathematica

lst = Range[1, 1700000, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; lst2 = {}; s = 0; Do[s = s + Prime@n; If[MemberQ[lst, s], Print[n]; AppendTo[lst2, n]], {n, 687}]; lst2 (* Robert G. Wilson v *)

Crossrefs

Cf. A000959, A007504, A046280.

Sequence in context: A345069 A187712 A130720 * A048030 A048011 A188334

Adjacent sequences: A046282 A046283 A046284 * A046286 A046287 A046288

Keyword

nonn

Author

Patrick De Geest, Jun 15 1998

Extensions

More terms from Robert G. Wilson v, May 12 2006

Status

approved