cp's OEIS Frontend

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.

A136051 Primes p such that 5*p-4 is also prime.

This page as a plain text file.
%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