|
%I #5 Mar 16 2020 09:59:22
%S 29,43,71,113,127,197,211,281,421,463,491,547,617,673,701,743,757,883,
%T 911,953,967,1051,1093,1163,1373,1471,1583,1597,1667,1877,1933,2143,
%U 2213,2311,2423,2437,2647,2801,2857,2927,3011,3067,3137,3221,3347,3557
%N Mother primes of order 3.
%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.
%H Amiram Eldar, <a href="/A136062/b136062.txt">Table of n, a(n) for n = 1..10000</a>
%t n = 3; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a
%Y Cf. A088878, A091180, A136019, A136020, A136061, A136063, A136064, A136065, A136066, A136067, A136068, A136069, A136070.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 12 2007
|
