OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
With[{upto=700}, Select[Times@@#+4&/@Tuples[Prime[Range[PrimePi[upto/2]]], 2], PrimeQ[#]&&#<+upto&]]//Union (* Harvey P. Dale, Jul 23 2016 *)
PROG
(PARI) list(lim)=my(v=List(), t); forprime(p=3, (lim-4)\3, forprime(q=3, min((lim-4)\p, p), t=p*q+4; if(isprime(t), listput(v, t)))); Set(v) \\ Charles R Greathouse IV, Aug 05 2016
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Feb 20 2004
STATUS
approved