This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A136078 #8 Mar 26 2023 16:50:59 %S A136078 113,151,227,379,569,607,797,911,1291,1367,1709,1861,2089,2621,2659, %T A136078 2887,3001,3191,3457,3761,4027,4597,4787,5167,5281,5851,5927,6421, %U A136078 6991,7219,7561,7789,8017,9689,10601,10867,11171,11399,11437,11551,11779 %N A136078 Father primes of order 9. %C A136078 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 A136078 Amiram Eldar, <a href="/A136078/b136078.txt">Table of n, a(n) for n = 1..10000</a> %t A136078 n = 9; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a %t A136078 Select[Prime[Range[1500]],PrimeQ[(#-18)/19]&] (* _Harvey P. Dale_, Mar 26 2023 *) %Y A136078 Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136072, A136073, A136074, A136075, A136076, A136077, A136079, A136080. %K A136078 nonn %O A136078 1,1 %A A136078 _Artur Jasinski_, Dec 12 2007