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 A136051 #13 Mar 15 2020 05:08:08 %S A136051 3,7,13,31,37,43,67,109,127,139,151,163,199,211,241,277,307,349,367, %T A136051 373,433,457,463,547,571,601,613,661,673,709,727,739,787,811,823,853, %U A136051 919,967,991,1021,1087,1117,1129,1171,1231,1291,1297,1399,1471,1483,1549 %N A136051 Primes p such that 5*p-4 is also prime. %C A136051 Previous name: Daughter primes of order 2. %C A136051 For daughter primes of order 1 see A088878. For smallest daughter primes of order n see A136019 (also definition). %H A136051 Amiram Eldar, <a href="/A136051/b136051.txt">Table of n, a(n) for n = 1..10000</a> %t A136051 n = 2; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a %t A136051 (* Second program: *) %t A136051 Select[Prime@ Range@ 250, PrimeQ[5 # - 4] &] (* _Michael De Vlieger_, Aug 04 2017 *) %o A136051 (PARI) lista(nn) = forprime(p=2, nn, if (isprime(5*p-4), print1(p, ", "))) %Y A136051 Cf. A088878, A091180, A136019, A136020, A136052, A136053, A136054, A136055, A136056, A136057, A136058, A136059, A136060. %K A136051 nonn %O A136051 1,1 %A A136051 _Artur Jasinski_, Dec 12 2007 %E A136051 New name from _Michel Marcus_, Aug 04 2017