%I #6 Mar 17 2020 03:27:37

%S 5,11,17,41,71,89,101,137,149,167,197,239,251,257,269,317,347,401,431,

%T 449,461,521,569,617,641,659,677,701,719,839,881,1031,1049,1091,1109,

%U 1277,1289,1367,1427,1439,1487,1499,1571,1601,1637,1667,1721,1847,1871

%N Son primes of order 14.

%C For smallest son primes of order n see A136027 (also definition). For son primes of order 1 see A023208. For son primes of order 2 see A023218. For son primes of order 3 see A023225. For son primes of order 4 see A023235. For son primes of order 5 see A136082. For son primes of order 6 see A136083. For son primes of order 7 see A136084. For son primes of order 8 see A136085. For son primes of order 9 see A136086. For son primes of order 10 see A136087. For son primes of order 11 see A136088. For son primes of order 12 see A136089. For son primes of order 13 see A136090.

%H Amiram Eldar, <a href="/A136091/b136091.txt">Table of n, a(n) for n = 1..10000</a>

%t n = 14; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, (Prime[k] - 2n)/(2n + 1)]], {k, 1, 1000}]; a

%Y Cf. A023208, A023218, A023225, A023235, A094524, A136019, A136020, A136026, A136027, A023208, A136082, A136083, A136084, A136085, A136086, A136087, A136088, A136089, A136090.

%K nonn

%O 1,1

%A _Artur Jasinski_, Dec 12 2007