|
%I #12 May 31 2014 14:23:52
%S 2,3,6,8,12,15,19,20,22,23,26,28,31,35,36,38,39,42,46,49,53,55,56,59,
%T 61,65,68,70,71,73,77,81,82,84,87,89,92,96,97,98,101,103,107,108,111,
%U 113,117,120,124,125,126,128,131,135,136,138,139,142,145,147,148,151,153
%N Sum of the (primes > 5 modulo 5).
%H Vincenzo Librandi, <a href="/A103567/b103567.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n+1)-a(n) = A039703(n+4).
%t a = Table[Sum[Mod[Prime[i + 3], 5], {i, 1, n}], {n, 1, 200}]
%t Accumulate[Mod[#,5]&/@Prime[Range[4,70]]] (* _Harvey P. Dale_, May 31 2014 *)
%K nonn
%O 1,1
%A _Roger L. Bagula_, Mar 23 2005
|
