OFFSET
1,1
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..10000
PROG
(GAP) P:=Filtered([1..2100], IsPrime);;
P1:=List(Filtered([1..Length(P)-1], i->P[i+1]-P[i]=6), k->P[k]);;
a:=List([1..Length(P1)-1], i->P1[i+1]-P1[i]);; Print(a); # Muniru A Asiru, Dec 23 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Mar 06 2000
STATUS
approved