OFFSET
1,1
COMMENTS
Or, primes p such that p+2, p^2-2 and 2 + 4*p + p^2 are primes. Intersection of A128550 and A128551.
The number of such p's <= 10^n: 2, 2, 2, 2, 11, 56, 320, 1772, ..., . - Robert G. Wilson v, Mar 11 2007
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
fQ[n_] := Block[{p = Prime[n], q = Prime[n + 1]}, p + 2 == q && PrimeQ[p*q - p - q] && PrimeQ[p*q + p + q]]; lst = {}; Do[ If[ fQ@n == True, AppendTo[lst, Prime@n]; Print@ Prime@n], {n, 39055}] (* Robert G. Wilson v, Mar 11 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 10 2007
EXTENSIONS
More terms from Robert G. Wilson v, Mar 11 2007
STATUS
approved