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 A224990 #7 Apr 23 2013 03:05:44 %S A224990 3,13,157,181,739,829,937,1009,1093,1483,1621,1879,2311,2503,2647, %T A224990 2719,3079,4969,4999,5209,5431,5569,6163,6961,8161,8329,9349,9631, %U A224990 10399,10459,10531,10657,11131,11953,13063,18523,20149,20731,21391,21589,26317,27481,28111,28351,29023 %N A224990 Primes p such that q = 2*p^2 - 1 and 2*p*q - 1 are also prime. %C A224990 Subsequence of A106483, and more elementary version of A224614. %t A224990 Select[Prime[Range[10000]], PrimeQ[2#^2 - 1] && PrimeQ[4#^3 - 2# - 1] &] (* _Alonso del Arte_, Apr 22 2013 *) %o A224990 (PARI) forprime(p=1,3e4,isprime(r=2*p^2-1)&&isprime(2*p*r-1)&&print1(p",")) %K A224990 nonn %O A224990 1,1 %A A224990 _M. F. Hasler_, Apr 22 2013