|
%I #19 Nov 15 2019 21:34:59
%S 1,4,11,20,33,48,69,94,125,158,195,238,287,338,401,468,537,610,685,
%T 764,851,944,1043,1148,1259,1374,1501,1630,1763,1898,2039,2190,2349,
%U 2512,2681,2852,3041,3234,3429,3630,3835,4046,4265,4488,4719,4954,5191,5432
%N Sum of first n lucky numbers.
%C The subsequence of prime partial sums of lucky numbers begins: 11, 401, 1259, 2039. The subsequence of lucky partial sums of lucky numbers begins: 33, 69, 195, 537, 685, 1501, 5191. - _Jonathan Vos Post_, Feb 11 2010
%H Amiram Eldar, <a href="/A046279/b046279.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 *)
%Y Cf. A007504, A000959.
%K nonn
%O 1,2
%A _Patrick De Geest_, Jun 15 1998
%E Offset 1 from _Michel Marcus_, Oct 10 2019
|
