%I #8 Mar 26 2023 16:50:59
%S 113,151,227,379,569,607,797,911,1291,1367,1709,1861,2089,2621,2659,
%T 2887,3001,3191,3457,3761,4027,4597,4787,5167,5281,5851,5927,6421,
%U 6991,7219,7561,7789,8017,9689,10601,10867,11171,11399,11437,11551,11779
%N Father primes of order 9.
%C For smallest father primes of order n see A136026 (also definition). For father primes of order 1 see A094524. For father primes of order 2 see A136071. For father primes of order 3 see A136072. For father primes of order 4 see A136073. For father primes of order 5 see A136074. For father primes of order 6 see A136075. For father primes of order 7 see A136076. For father primes of order 8 see A136077.
%H Amiram Eldar, <a href="/A136078/b136078.txt">Table of n, a(n) for n = 1..10000</a>
%t n = 9; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a
%t Select[Prime[Range[1500]],PrimeQ[(#-18)/19]&] (* _Harvey P. Dale_, Mar 26 2023 *)
%Y Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136072, A136073, A136074, A136075, A136076, A136077, A136079, A136080.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 12 2007
|