1,1

Muniru A Asiru, Table of n, a(n) for n = 1..10000

(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

Sequence in context: A028585 A073926 A073925 * A335772 A299214 A174256

Adjacent sequences: A053318 A053319 A053320 * A053322 A053323 A053324

nonn

Labos Elemer, Mar 06 2000

approved