OFFSET
1,1
COMMENTS
Includes all primes == 463 (mod 7735).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Mathematics StackExchange, If P is prime then is P+6 prime
EXAMPLE
463 is in the sequence because it is prime but 463+6, 463+12, 463+18 and 463+30 are not.
MAPLE
select(p -> isprime(p) and not ormap(isprime, [p+6, p+12, p+18, p+30]),
[2, seq(p, p=3..10000, 2)]);
MATHEMATICA
Select[Prime[Range[600]], NoneTrue[#+{6, 12, 18, 30}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 23 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Feb 10 2019
STATUS
approved