[go: up one dir, main page]

login
A053321
First differences of A031924.
2
8, 16, 6, 8, 12, 10, 48, 20, 6, 10, 6, 60, 18, 6, 6, 8, 60, 22, 14, 6, 10, 50, 10, 60, 38, 16, 6, 8, 16, 6, 8, 6, 40, 6, 24, 50, 6, 18, 190, 6, 24, 6, 14, 22, 20, 30, 34, 6, 14, 6, 58, 6, 30, 6, 8, 52, 8, 30, 40, 6, 66, 20, 40, 50, 10, 48, 12, 8, 36, 84, 6, 6, 24, 84, 40, 6, 66, 14, 24
OFFSET
1,1
LINKS
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
Sequence in context: A028585 A073926 A073925 * A335772 A299214 A174256
KEYWORD
nonn
AUTHOR
Labos Elemer, Mar 06 2000
STATUS
approved