login
A136051
Primes p such that 5*p-4 is also prime.
11
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
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, ", ")))
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 12 2007
EXTENSIONS
New name from Michel Marcus, Aug 04 2017
STATUS
approved