OFFSET
1,1
COMMENTS
Primes of the form prime(k)*prime(k+1) - 6 for some k >= 1. - Jon E. Schoenfield, Jan 17 2015
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
11*13 - 6 = 137 is prime.
MATHEMATICA
f[n_]:=Prime[n]*Prime[n+1]-6; lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, f[n]]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 10 2010 *)
PROG
(PARI) p=2; forprime(q=3, 610, if(isprime(u=p*q-6), print1(u, ", ")); p=q)
(PARI) forprime(p=2, 1000, q=nextprime(p+1); r=p*q-6; if(isprime(r), print1(r, ", "))) \\ Rick L. Shepherd, Nov 13 2004
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Nov 12 2004
EXTENSIONS
Edited and extended by Klaus Brockhaus and Rick L. Shepherd, Nov 13 2004
STATUS
approved