A320710 - OEIS

%I #9 May 03 2019 21:24:34

%S 263,327,574,615,641,697,804,834,869,909,938,987,1022,1045,1127,1336,

%T 1399,1421,1446,1452,1551,1577,1865,1883,1908,1938,1939,1968,2032,

%U 2064,2128,2130,2176,2214,2313,2508,2555,2592,2612,2652,2736,2762,2991,3162,3243,3285,3483,3489

%N Indices of primes followed by a gap (distance to next larger prime) of 24.

%C Indices of the primes listed in A098974.

%H Robert Israel, <a href="/A320710/b320710.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>.

%F a(n) = A000720(A098974(n)).

%F A320710 = { i > 0 | prime(i+1) = prime(i) + 24 }.

%p P:= [seq(ithprime(i),i=1..4001)]:

%p B:= P[2..-1]-P[1..-2]:

%p select(t -> B[t]=24, [$1..4000]); # _Robert Israel_, May 03 2019

%o (PARI) A(N=100,g=24,p=2,i=primepi(p)-1,L=List())={forprime(q=1+p,,i++; if(p+g==p=q, listput(L,i); N--||break));Vec(L)} \\ returns the list of first N terms of the sequence

%Y Equals A000720 o A098974.

%Y Row 12 of A174349.

%Y Indices of 24's in A001223.

%Y Cf. A029707, A029709, A320701, A320702, ..., A320720 (analog for gaps 2, 4, 6, 8, ..., 44), A116493 (gap 70), A116496 (gap 100), A116497 (gap 200), A116495 (gap 210).

%K nonn

%O 1,1

%A _M. F. Hasler_, Oct 19 2018