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
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
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
Comments