OFFSET
1,1
COMMENTS
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.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
n = 9; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a
Select[Prime[Range[1500]], PrimeQ[(#-18)/19]&] (* Harvey P. Dale, Mar 26 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 12 2007
STATUS
approved