%I #18 Sep 08 2022 08:45:32
%S 38,83,195,339,579,819,1179,1731,2331,3171,4011,4899,5739,6867,8499,
%T 10011,11691,13251,14859,16611,18459,21051,24219,27531,30219,32259,
%U 33939,36099,40779,46059,52059,55251,60291,64323,69651,74019,79107,84387,89859,94731,101283
%N Sum of squares of three consecutive primes.
%C It is easy to see that all terms > 83 are divisible by 3.
%C Likewise all terms except 38 are congruent to 3 (mod 8). - _Franklin T. Adams-Watters_, Jun 17 2015
%H K. D. Bajpai, <a href="/A133529/b133529.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A069484(n) + A001248(n+2). - _Michel Marcus_, Nov 08 2013
%e a(1)=38 because 2^2 + 3^2 + 5^2 = 38.
%t a = 2; Table[Prime[n]^a + Prime[n + 1]^a + Prime[n + 2]^a, {n, 1, 100}]
%t Total/@Partition[Prime[Range[50]]^2, 3, 1] (* _Vincenzo Librandi_, Jun 18 2015 *)
%o (PARI) for( n= 1, 100, k= sum(i=n, n+2, prime(i)^2) ; print1(k, ", ")) \\ _K. D. Bajpai_, Jun 17 2015
%o (Magma) [&+[ NthPrime(n+i)^2 : i in [0..2]] : n in [1..20]]; // _K. D. Bajpai_, Jun 17 2015
%Y Cf. A034963, A133524-A133528, A133530-A133533.
%K nonn
%O 1,1
%A _Artur Jasinski_, Sep 14 2007
%E a(38)-a(41) from _K. D. Bajpai_, Jun 18 2015
|