login
A135985
Prime numbers of the form 24*p + 7 where p is prime.
1
79, 127, 271, 463, 751, 991, 1039, 1279, 1423, 1471, 1759, 1999, 2143, 2719, 3343, 3583, 3631, 3919, 4159, 4591, 4639, 4783, 5503, 5743, 5791, 7039, 7951, 8623, 9103, 9199, 9343, 9631, 10111, 10399, 10639, 11071, 11119, 11503, 12511
OFFSET
1,1
LINKS
MAPLE
select(t -> isprime(t) and isprime((t-7)/24), [seq(p, p=7..20000, 24)]); # Robert Israel, Oct 16 2018
MATHEMATICA
a = {}; Do[If[PrimeQ[24(Prime[n]) + 7], AppendTo[a, 24(Prime[n]) + 7]], {n, 1, 100}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 09 2007
STATUS
approved