OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..2000
EXAMPLE
1741, 1747, 1753, 1759 are consecutive primes, 1747 = 1741 + 6, 1753 = 1741 + 12, 1759 = 1741 + 18 and 1741 = 6 * 290 + 1.
MAPLE
filter:= p -> isprime(p) and nextprime(p) = p+6 and nextprime(p+6)=p+12 and nextprime(p+12)=p+18:
select(filter, [seq(i, i=1..10^6, 6)]); # Robert Israel, Nov 11 2020
PROG
(PARI) isok(p) = my(q, r, s); isprime(p) && ((p % 6) == 1) && ((q=nextprime(p+1)) == p+6) && ((r=nextprime(q+1)) == p+12) && ((s=nextprime(r+1)) == p+18); \\ Michel Marcus, Sep 20 2019
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Pierre CAMI, Dec 09 2003
EXTENSIONS
More terms from Michel Marcus, Sep 20 2019
STATUS
approved