The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #13 Jan 15 2015 18:37:58
%S 31,127,367,967,3727,6247,7927,11887,17167,22807,39607,72367,109567,
%T 160807,185767,323767,502687,737887,863047,885487,942847,982087,
%U 1079527,1560007,1739767,1852327,1985287,2105407,2343967,2399407
%N Primes of the form p^2 + 6 where p is prime.
%C Sum of reciprocals = 0.0447155381... [4 additional digits from _Jon E. Schoenfield_, Jan 15 2015]
%H T. D. Noe, <a href="/A079141/b079141.txt">Table of n, a(n) for n=1..1000</a>
%t f[n_]:=n^2+6; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],AppendTo[lst,f[p]]],{n,7!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jul 17 2009 *)
%t Select[#^2+6&/@Prime[Range[300]],PrimeQ] (* _Harvey P. Dale_, Nov 16 2012 *)
%o (PARI) sqppn(n) = {sr=0; forprime(x=3,n, y = x*x+6; if(isprime(y), print1(y" "); sr+=1.0/y; ); ); print(); print(sr); } \\ Primes of the form p^2 + 6 and the sum of the reciprocals.
%Y Cf. A056909.
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Dec 26 2002