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 A154632 #22 Jun 09 2015 04:09:40 %S A154632 5,17,23,41,59,71,89,149,197,233,239,347,359,401,419,449,563,683,761, %T A154632 773,827,887,971,977,1049,1061,1097,1193,1277,1373,1439,1553,1571, %U A154632 1787,1871,1877,1931,2069,2267,2273,2381,2417,2447,2687,2699,2777,2843,2957 %N A154632 Odd primes p such that (4*p^2-8*p-9)/3 is a prime. %H A154632 Vincenzo Librandi, <a href="/A154632/b154632.txt">Table of n, a(n) for n = 1..1000</a> %e A154632 For p=5, (4*p^2-8*p-9)/3 = 17; for p=149, (4*p^2-8*p-9)/3 = 29201. %p A154632 a := proc (n) if isprime(n) = true and type((4/3)*n^2-(8/3)*n-3, integer) = true and isprime((4/3)*n^2-(8/3)*n-3) = true then n else end if end proc: seq(a(n), n = 2 .. 4000); # _Emeric Deutsch_, Jan 20 2009 %t A154632 Select[Prime[Range[2, 500]], PrimeQ[(4 #^2 - 8 # - 9)/3] &] (* _Harvey P. Dale_, May 20 2012 *) %Y A154632 Cf. A154616. %Y A154632 Subsequence of A007528. %K A154632 nonn,easy %O A154632 1,1 %A A154632 _Vincenzo Librandi_, Jan 18 2009 %E A154632 Extended by _Emeric Deutsch_, Jan 20 2009 %E A154632 Formatting of definition clarified by _Harvey P. Dale_, May 20 2012