OFFSET
1,1
COMMENTS
Indices of the primes listed in A126784.
LINKS
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
KEYWORD
nonn
AUTHOR
M. F. Hasler, Oct 19 2018
STATUS
approved