login
A320714
Indices of primes followed by a gap (distance to next larger prime) of 32.
1
738, 1315, 3022, 3042, 3607, 4112, 4300, 4362, 4555, 4619, 4761, 4893, 5204, 5358, 5615, 5637, 6215, 6265, 6479, 6610, 6706, 6933, 7295, 7829, 7884, 8049, 8198, 8548, 9085, 9155, 9524, 9588, 9641, 9826, 9924, 10463, 10824, 11367, 11590, 11701, 11729, 11869, 12159, 12258, 12275, 12327
OFFSET
1,1
COMMENTS
Indices of the primes listed in A126784.
FORMULA
a(n) = A000720(A126784(n)).
A320714 = { i>0 | prime(i+1) = prime(i) + 32 }.
MAPLE
p:= 2: Res:= NULL: count:= 0:
for k from 1 while count < 100 do
q:= nextprime(p);
if q - p = 32 then
count:= count+1;
Res:= Res, k;
fi;
p:= q;
od:
Res; # Robert Israel, Oct 25 2018
MATHEMATICA
PrimePi/@Select[Partition[Prime[Range[15000]], 2, 1], #[[2]]-#[[1]]==32&][[;; , 1]] (* Harvey P. Dale, Jun 19 2024 *)
PROG
(PARI) A(N=100, g=32, 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
CROSSREFS
Equals A000720 o A126784.
Indices of 32's in A001223.
Row 16 of A174349.
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).
Sequence in context: A043633 A171641 A251814 * A251647 A337738 A204289
KEYWORD
nonn
AUTHOR
M. F. Hasler, Oct 19 2018
STATUS
approved