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

3, 7, 13, 31, 37, 43, 67, 109, 127, 139, 151, 163, 199, 211, 241, 277, 307, 349, 367, 373, 433, 457, 463, 547, 571, 601, 613, 661, 673, 709, 727, 739, 787, 811, 823, 853, 919, 967, 991, 1021, 1087, 1117, 1129, 1171, 1231, 1291, 1297, 1399, 1471, 1483, 1549

Offset

1,1

Comments

Previous name: Daughter primes of order 2.

For daughter primes of order 1 see A088878. For smallest daughter primes of order n see A136019 (also definition).

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

n = 2; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a
(* Second program: *)
Select[Prime@ Range@ 250, PrimeQ[5 # - 4] &] (* Michael De Vlieger, Aug 04 2017 *)

Prog

(PARI) lista(nn) = forprime(p=2, nn, if (isprime(5*p-4), print1(p, ", ")))

Crossrefs

Cf. A088878, A091180, A136019, A136020, A136052, A136053, A136054, A136055, A136056, A136057, A136058, A136059, A136060.

Sequence in context: A023227 A031157 A049488 * A100750 A105435 A117708

Adjacent sequences: A136048 A136049 A136050 * A136052 A136053 A136054

Keyword

nonn

Author

Artur Jasinski, Dec 12 2007

Extensions

New name from Michel Marcus, Aug 04 2017

Status

approved