A136052 Daughter primes of order 3.
5, 7, 11, 17, 19, 29, 31, 41, 61, 67, 71, 79, 89, 97, 101, 107, 109, 127, 131, 137, 139, 151, 157, 167, 197, 211, 227, 229, 239, 269, 277, 307, 317, 331, 347, 349, 379, 401, 409, 419, 431, 439, 449, 461, 479, 509, 547, 601, 607, 619, 641, 647, 661, 677, 691
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
n = 3; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a
Comments