OFFSET
1,1
COMMENTS
Each term is the initial member of two prime quadruples (A007530) with the smallest possible difference of 30.
LINKS
Jud McCranie and Sebastian Petzelberger, Table of n, a(n) for n = 1..10000 (first 1238 terms from Jud McCranie)
J. Brüggemann, The twins of prime quadruples up to 10^17 [71 MB].
D. La Pierre Ballard, Prime Number Quadruplets 30 Apart
MATHEMATICA
Select[Prime[Range[5582*10^4]], AllTrue[#+{2, 6, 8, 30, 32, 36, 38}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 13 2019 *)
PROG
(PARI) is(n)=my(v=[0, 2, 6, 8, 30, 32, 36, 38]); for(i=1, 8, if(!isprime(n+v[i]), return(0))); 1 \\ Charles R Greathouse IV, Jun 18 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Martin Raab, Mar 03 2001
EXTENSIONS
For clarity, replaced definition by a comment from Charles R Greathouse IV. - N. J. A. Sloane, Nov 26 2020
STATUS
approved