OFFSET
1,1
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Position[Differences[Prime[Range[250]]], 6]//Flatten (* Harvey P. Dale, Oct 13 2022 *)
PROG
(PARI) A(N=100, g=6, 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