%I A133940
%S A133940 4,5,8,13,15,26,46,47,50,55,57,59,61,65,66,69,77,82,89,91,94,101,105,
%T A133940 116,134,136,137,138,144,157,194
%N A133940 Numbers n such that one-third of the sum of squares of three consecutive 
               primes is prime (A084951).
%C A133940 With exception of the two first term all numbers in A133529 are divisible 
               by 3
%e A133940 a(1)=4 because (Prime[4]^2 + Prime[5]^2 + Prime[6]^2)/3=113 is prime
%t A133940 b = {}; a = 2; Do[k = (Prime[n]^a + Prime[n + 1]^a + Prime[n + 2]^a)/
               3; If[PrimeQ[k], AppendTo[b, n]], {n, 1, 200}]; b
%Y A133940 Cf. A133529, A133940.
%Y A133940 Sequence in context: A027975 A011980 A061765 this_sequence A030978 A101948 
               A087475
%Y A133940 Adjacent sequences: A133937 A133938 A133939 this_sequence A133941 A133942 
               A133943
%K A133940 nonn
%O A133940 1,1
%A A133940 Artur Jasinski (grafix(AT)csl.pl), Sep 30 2007