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
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
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 *)
-
PARI
lista(nn) = forprime(p=2, nn, if (isprime(5*p-4), print1(p, ", ")))
Extensions
New name from Michel Marcus, Aug 04 2017
Comments