|
%I
%S 7,18,31,48,48,52,62,74,92,95,100,109,124,126,130,140,154,170,173,180,
%T 193,195,201,209,221,235,253,266,283,287,293,309,327,332,343,358,360,
%U 368,378,379,382,389,398,400,414,432,433,438,449,462,466,476,492,495
%N Sum of the (primes > 5 modulo 19).
%C For Prime[q[ the sums of the primes > 5 to a prime modulo form a sequence of sequences: a(n,q) = Sum[Mod[Prime[i+3],Prime[q]],{i,1,n}]
%F a(n+1)-a(n) = A033633(n+4).
%t a = Table[Sum[Mod[Prime[i + 3], 19], {i, 1, n}], {n, 1, 200}]
%K nonn
%O 1,1
%A _Roger L. Bagula_, Mar 23 2005
|
