A136072 Father primes of order 3.

41, 83, 97, 139, 167, 223, 293, 307, 419, 433, 503, 587, 727, 769, 797, 1049, 1063, 1217, 1259, 1399, 1483, 1567, 1609, 1637, 1693, 1847, 1889, 1973, 1987, 2477, 2617, 2659, 2687, 2729, 2939, 2953, 3023, 3037, 3079, 3359, 3499, 3527, 3793, 3947, 3989

Offset

1,1

Comments

Primes of the form 7p+6 where p is prime. - David Radcliffe, Nov 30 2015

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

select(t -> isprime(t) and isprime((t-6)/7), [seq(i, i=13..10000, 14)]); # Robert Israel, Nov 30 2015

Mathematica

n = 3; a = {}; Do[If[PrimeQ[(Prime[k] - 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a

Crossrefs

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.

Cf. A023208, A094524, A136019, A136020, A136026, A136027, A136071, A136073, A136074, A136075, A136076, A136077, A136078, A136079, A136080.

Sequence in context: A044488 A335482 A173550 * A098061 A141898 A054998

Adjacent sequences: A136069 A136070 A136071 * A136073 A136074 A136075

Keyword

nonn

Author

Artur Jasinski, Dec 12 2007

Extensions

Typo in Mathematica program fixed by David Radcliffe, Nov 30 2015

Status

approved