OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Prime[Select[Range[1000], PrimeQ[Prime[#]*Prime[# + 1] + 2] &]]
Reap[Do[If[PrimeQ[(p=Prime[k])*Prime[k+1]+2], Sow[p]], {k, 1, 430}]][[2, 1]] (* Zak Seidov, Dec 05 2010 *)
PROG
(Sage) A051507 = list(p for p in primes(10**4) if is_prime(p*next_prime(p)+2)) # D. S. McNeil, Dec 04 2010
(PARI) p=2; forprime(q=3, 1e4, if(isprime(p*q+2), print1(p", ")); p=q) \\ Charles R Greathouse IV, May 01 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved