%I #17 Nov 21 2018 17:30:45

%S 2,3,5,7,19,31,47,89,127,139,2251,3271,4253,4373,4549,5449,13331,

%T 37123,55291

%N Primes p such that lcm(1,2,3,...,p-2,p-1,p) + 1 is prime.

%F A049537 INTERSECT A000040. - _Ray Chandler_, Jan 16 2009

%t Select[Range[1000], PrimeQ[#] && PrimeQ[LCM@@Range[#]+1] &] (* _Amiram Eldar_, Nov 21 2018 *)

%o (PARI) isok(p) = isprime(p) && (isprime(lcm(vector(p, i, i)) + 1)); \\ _Michel Marcus_, Oct 26 2013, Feb 25 2014

%Y Cf. A056604, A154524, A154526.

%K nonn

%O 1,1

%A _Lekraj Beedassy_, Jan 11 2009

%E a(1)=2 inserted and a(8)-a(18) from _Ray Chandler_, Jan 16 2009

%E a(19) from _Daniel Suteu_, Nov 21 2018