%I #9 Dec 09 2018 17:08:45
%S 87,204,364,628,940,1348,2020,2692,3700,4852,5860,7108,8548,10348,
%T 12220,14500,16732,18580,21100,23500,26380,30460,34420,38140,41668,
%U 44140,46708,52228,57940,64828,71380,77452,83092,88972,96220,101908,109036
%N Sum of squares of four consecutive primes.
%H Charles R Greathouse IV, <a href="/A133524/b133524.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A133529(n) + A001248(n+3). - _Michel Marcus_, Nov 08 2013
%F a(n) ~ 4n^2 log^2 n. - _Charles R Greathouse IV_, Apr 29 2015
%e a(1)=87 because 2^2+3^2+5^2+7^2=87.
%t a = 2; Table[Prime[n]^a + Prime[n + 1]^a + Prime[n + 2]^a + Prime[n + 3]^a, {n, 1, 100}]
%t Total/@Partition[Prime[Range[40]]^2,4,1] (* _Harvey P. Dale_, Dec 09 2018 *)
%o (PARI) a(n)=sum(i=n, n+3, prime(i)^2) \\ _Charles R Greathouse IV_, Apr 29 2015
%Y Cf. A034963.
%K nonn
%O 1,1
%A _Artur Jasinski_, Sep 14 2007
|