|
%I #6 May 28 2016 10:18:27
%S 7,20,39,70,107,150,211,278,351,430,527,630,739,866,1005,1156,1313,
%T 1476,1657,1850,2049,2260,2483,2712,2953,3224,3501,3784,4091,4404,
%U 4735,5072,5421,5788,6161,6540,6937,7346,7767,8200,8639,9096,9559
%N Partial sums of primes congruent to 1 mod 6.
%e a(4) = 70 = 7+13+19+31.
%t Accumulate[Select[Prime[Range[100]],Mod[#,6]==1&]] (* _Harvey P. Dale_, May 28 2016 *)
%Y Cf. A002476.
%K easy,nonn
%O 1,1
%A Den Roussel (DenRoussel(AT)webtv.net)
|
