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

Author

Artur Jasinski, Dec 12 2007

Keywords

• nonn

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

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.

Programs

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

Extensions

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