|
%I #10 May 18 2020 03:44:10
%S 3,10,21,40,63,94,137,184,243,310,381,460,543,646,753,880,1011,1150,
%T 1301,1464,1631,1810,2001,2200,2411,2634,2861,3100,3351,3614,3885,
%U 4168,4475,4786,5117,5464,5823,6190,6569,6952,7371,7802,8241,8684,9147,9614
%N Sum of first n primes of form 4k-1.
%H Robert Israel, <a href="/A038347/b038347.txt">Table of n, a(n) for n = 1..10000</a>
%p ListTools:-PartialSums(select(isprime, [seq(i,i=3..1000,4)])); # _Robert Israel_, Feb 27 2017
%t Accumulate[Select[Prime[Range[250]],Mod[#,4]==3&]] (* _Harvey P. Dale_, Jul 04 2013 *)
%Y Cf. A002145, A038346, A078586.
%K easy,nonn
%O 1,1
%A Den Roussel (DenRoussel(AT)webtv.net)
|
