OFFSET
1,1
FORMULA
MATHEMATICA
Select[Range[1000], PrimeQ[#] && PrimeQ[LCM@@Range[#]+1] &] (* Amiram Eldar, Nov 21 2018 *)
PROG
(PARI) isok(p) = isprime(p) && (isprime(lcm(vector(p, i, i)) + 1)); \\ Michel Marcus, Oct 26 2013, Feb 25 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Jan 11 2009
EXTENSIONS
a(1)=2 inserted and a(8)-a(18) from Ray Chandler, Jan 16 2009
a(19) from Daniel Suteu, Nov 21 2018
STATUS
approved