A046279 Sum of first n lucky numbers.
1, 4, 11, 20, 33, 48, 69, 94, 125, 158, 195, 238, 287, 338, 401, 468, 537, 610, 685, 764, 851, 944, 1043, 1148, 1259, 1374, 1501, 1630, 1763, 1898, 2039, 2190, 2349, 2512, 2681, 2852, 3041, 3234, 3429, 3630, 3835, 4046, 4265, 4488, 4719, 4954, 5191, 5432
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
luckyLimit = 300; t = Range[1, luckyLimit, 2]; sieve[n_] := Module[{k = t[[n]]}, t = Delete[t, Table[{i}, {i, k, Length[t], k}]]]; n = 1; While[t[[n]] < Length[t], n++; sieve[n]]; Accumulate[t] (* Harvey P. Dale, Apr 05 2011 *)
Extensions
Offset 1 from Michel Marcus, Oct 10 2019
Comments