login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A284659
Numbers n such that numbers 30(n+k) + 1 are prime for k=0..5.
1
18, 74, 4386, 4505, 9314, 10357, 21095, 29621, 38784, 102463, 105200, 116134, 163300, 179967, 186918, 210515, 252830, 348709, 354022, 362345, 396820, 400915, 431568, 438862, 457748, 464118, 470852, 477341, 493070
OFFSET
1,1
COMMENTS
Numbers n through n+5 are terms in A111175. There are no cases of 7 consecutive numbers in A111175.
All terms are congruent to 4 mod 7.
EXAMPLE
a(1)=18 because 1 + 30*k for k=18..23 are 541, 571, 601, 631, 661, 691 all primes: A000040(k) for k={100, 105, 110, 115, 121, 125}.
MAPLE
filter:= t -> andmap(isprime, [seq(30*(t+k)+1, k=0..5)]):
select(filter, [seq(seq(77*k + i, i=[18, 39, 53, 60, 74]), k=0..10000)]); # Robert Israel, Apr 04 2017
MATHEMATICA
Select[Range[18, 1000000, 7], PrimeQ[1 + 30*#] && PrimeQ[1 + 30*(# + 1)] && PrimeQ[1 + 30*(# + 2)] && PrimeQ[1 + 30*(# + 3)] && PrimeQ[1 + 30*(# + 4)] && PrimeQ[1 + 30*(# + 5)] &]
Select[Range[4, 10^6, 7], AllTrue[30(#+Range[0, 5])+1, PrimeQ]&] (* Harvey P. Dale, Dec 03 2023 *)
CROSSREFS
Sequence in context: A305018 A041628 A022145 * A143666 A139757 A285918
KEYWORD
nonn
AUTHOR
Zak Seidov, Mar 31 2017
STATUS
approved