OFFSET
1,1
COMMENTS
The primes produced (p, p+2, p+8, p+12) are not always consecutive primes.
LINKS
Michael B. Porter, Table of n, a(n) for n = 1..2300
FORMULA
EXAMPLE
29 is in the sequence because 29, 29 + 2 = 31, 29 + 8 = 37, and 29 + 12 = 41 are all prime.
MAPLE
KD := proc() local a, b, c, p; p:=ithprime(n); a:=p+2; b:=p+8; c:=p+12; if isprime(a)and isprime(b) and isprime(c) then RETURN (p); fi; end: seq(KD(), n=1..10000);
# K. D. Bajpai, Dec 27 2013
MATHEMATICA
Select[Prime[Range[4000]], AllTrue[#+{2, 8, 12}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 04 2016 *)
PROG
(PARI) is_a233540(p) = isprime(p) && isprime(p+2) && isprime(p+8) && isprime(p+12) \\ Michael B. Porter, Dec 27 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Dec 12 2013
STATUS
approved