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 A290164 #16 Jul 25 2017 02:32:10 %S A290164 2,5,11,19,29,59,61,79,89,131,149,151,191,389,431,479,499,521,541,571, %T A290164 631,659,701,739,919,941,971,1069,1181,1279,1289,1361,1381,1451,1471, %U A290164 1489,1669,1949,2069,2089,2131,2549,2609,2749,2791,3011,3109,3181,3251,3361 %N A290164 Primes p such that both 4*p - 3 and 3*p - 4 are prime. %C A290164 For n >= 3, all terms end in 1 or 9. - _Robert Israel_, Jul 24 2017 %H A290164 Robert Israel, <a href="/A290164/b290164.txt">Table of n, a(n) for n = 1..10000</a> %p A290164 select(p -> isprime(p) and isprime(4*p-3) and isprime(3*p-4), [2,seq(i,i=3..10000,2)]); # _Robert Israel_, Jul 24 2017 %t A290164 Select[Prime@ Range@ 500, Times @@ Boole@ Map[PrimeQ, {4 # - 3, 3 # - 4}] > 0 &] (* _Michael De Vlieger_, Jul 23 2017 *) %o A290164 (PARI) forprime(p=2, 10000, if (isprime(3*p-4) && isprime(4*p-3), print1(p, ", "))) \\ _Michel Marcus_, Jul 23 2017 %Y A290164 Cf. A259730, A290163 (a subsequence). %K A290164 nonn %O A290164 1,1 %A A290164 _David James Sycamore_, Jul 22 2017 %E A290164 More terms from _Michel Marcus_, Jul 23 2017