# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a365309
Showing 1-1 of 1

%I A365309 #10 Sep 20 2023 12:24:34
%S A365309 73471,307537,634577,777671,1381141,1886107,1907527,2449327,2505187,
%T A365309 3078431,3110771,3299323,4076477,4088587,4666801,4829257,4930043,
%U A365309 5069567,5209301,5416291,5513941,5711551,6049567,6053627,6217091,7216691,8057867,8352301,8476817,8635717,8821231,8848811,9073819
%N A365309 Primes p such that the six consecutive primes starting with p are congruent to {6, 5, 4, 3, 2, 1} (mod 7).
%H A365309 Robert Israel, <a href="/A365309/b365309.txt">Table of n, a(n) for n = 1..2000</a>
%e A365309 The six consecutive primes starting with a(3) = 634577 are 634577, 634597, 634603, 634609, 634643, 634649, which are congruent to 6, 5, 4, 3, 2, 1 respectively (mod 7).
%p A365309 P:= [0$6]: P7:= [0$6]: E:= [seq(i,i=6..1,-1)];
%p A365309 R:= NULL: count:= 0: p:= 0:
%p A365309 while count < 10 do
%p A365309   p:= nextprime(p);
%p A365309   P:= [op(P[2..6]),p];;
%p A365309   P7:= [op(P7[2..6]),p mod 7];
%p A365309   if P7 = E then count:= count+1; R:= R, P[1]; fi
%p A365309 od:
%p A365309 R;
%t A365309 Prime/@SequencePosition[Mod[Prime[Range[610000]],7],{6,5,4,3,2,1}][[;;,1]] (* _Harvey P. Dale_, Sep 20 2023 *)
%Y A365309 Cf. A215599.
%K A365309 nonn
%O A365309 1,1
%A A365309 _Zak Seidov_ and _Robert Israel_, Aug 31 2023

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE