%I #5 Mar 16 2020 09:59:28

%S 19,37,109,163,199,271,379,523,541,631,739,919,1009,1171,1459,1549,

%T 1621,1783,1999,2053,2089,2143,2161,2251,2521,2539,2791,2971,3169,

%U 3673,3889,3943,4159,4483,4519,4861,5059,5113,5563,5779,5869,5923,6211,6301,6373

%N Mother primes of order 4.

%C For smallest mother primes of order n see A136020 (also definition). For mother primes of order 1 see A091180. For mother primes of order 2 see A136061. For mother primes of order 3 see A136062.

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

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

%Y Cf. A088878, A091180, A136019, A136020, A136061, A136062, A136064, A136065, A136066, A136067, A136068, A136069, A136070.

%K nonn

%O 1,1

%A _Artur Jasinski_, Dec 12 2007