

A136072


Father primes of order 3.


10



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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((t6)/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



