|
%I #6 Apr 10 2013 04:29:17
%S 5,7,11,17,19,29,31,41,61,67,71,79,89,97,101,107,109,127,131,137,139,
%T 151,157,167,197,211,227,229,239,269,277,307,317,331,347,349,379,401,
%U 409,419,431,439,449,461,479,509,547,601,607,619,641,647,661,677,691
%N Daughter primes of order 3.
%C For daughter primes of order 1 see A088878. For daughter primes of order 2 see A136051. For smallest daughter primes of order n see A136019 (also definition)
%H Vincenzo Librandi, <a href="/A136052/b136052.txt">Table of n, a(n) for n = 1..1000</a>
%t n = 3; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a
%Y Cf. A088878, A091180, A136019, A136020, A136052, A136053, A136054, A136055, A136056, A136057, A136058, A136059, A136060.
%K nonn,easy
%O 1,1
%A _Artur Jasinski_, Dec 12 2007
|
