A136055 Daughter primes of order 6.
5, 7, 11, 13, 41, 43, 47, 53, 67, 71, 73, 97, 101, 103, 151, 157, 173, 181, 197, 211, 223, 227, 241, 251, 257, 263, 271, 293, 313, 367, 383, 431, 461, 463, 521, 557, 563, 571, 577, 607, 617, 631, 661, 673, 683, 691, 727, 757, 773, 811, 823, 827, 883, 887, 907
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
n = 6; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a Select[(Prime[Range[2000]]+12)/13,PrimeQ] (* Harvey P. Dale, May 27 2012 *)
Comments