This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A154525 #17 Nov 21 2018 17:30:45 %S A154525 2,3,5,7,19,31,47,89,127,139,2251,3271,4253,4373,4549,5449,13331, %T A154525 37123,55291 %N A154525 Primes p such that lcm(1,2,3,...,p-2,p-1,p) + 1 is prime. %F A154525 A049537 INTERSECT A000040. - _Ray Chandler_, Jan 16 2009 %t A154525 Select[Range[1000], PrimeQ[#] && PrimeQ[LCM@@Range[#]+1] &] (* _Amiram Eldar_, Nov 21 2018 *) %o A154525 (PARI) isok(p) = isprime(p) && (isprime(lcm(vector(p, i, i)) + 1)); \\ _Michel Marcus_, Oct 26 2013, Feb 25 2014 %Y A154525 Cf. A056604, A154524, A154526. %K A154525 nonn %O A154525 1,1 %A A154525 _Lekraj Beedassy_, Jan 11 2009 %E A154525 a(1)=2 inserted and a(8)-a(18) from _Ray Chandler_, Jan 16 2009 %E A154525 a(19) from _Daniel Suteu_, Nov 21 2018