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 A154942 #4 Jun 21 2012 17:15:00 %S A154942 3,5,29,71,113,263,1103,2339,3203,3413,3593,3659,3719,4421,5939,6269, %T A154942 7841,9011,9029,13121,13841,14423,15671,17033,19073,22079,22811,26783, %U A154942 27851,28949,29303,30839,31973,32063,32141,34301,38543,38873,39119 %N A154942 Primes p such that (p-1)*p*(p+1)-p-2 and (p-1)*p*(p+1)+p+2 are primes. %C A154942 2*3*4=24-3-2=19, 2*3*4=24+3+2=29, ... %t A154942 lst={};Do[p=Prime[n];If[PrimeQ[(p-1)*p*(p+1)-p-2]&&PrimeQ[(p-1)*p*(p+1)+p+2],AppendTo[lst,p]],{n,8!}];lst %t A154942 prQ[n_]:=Module[{x=n^3-n,y=n+2},And@@PrimeQ[{x+y,x-y}]]; Select[Prime[ Range[4200]],prQ] (* _Harvey P. Dale_, Jun 21 2012 *) %Y A154942 Cf. A053184, A038872, A141158, A038615, A098058, A038936, A089270, A140559, A154939 %K A154942 nonn %O A154942 1,1 %A A154942 _Vladimir Joseph Stephan Orlovsky_, Jan 17 2009