A259396 Length of runs of identical terms in A080378.
1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 4, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 6, 1, 5, 1, 1, 3, 1, 1, 8, 1, 3, 1, 1, 1, 4, 1, 1, 1, 2, 1, 1, 3, 5, 1, 1, 2, 1, 6, 1, 1, 14, 1, 1, 1, 2, 1, 3, 2, 1, 1, 1, 1, 1, 1, 2, 2, 1, 3, 2, 1, 3, 1, 3, 1, 1, 1, 1, 1, 1, 4, 1, 2, 3, 1, 2, 1, 1, 2, 11, 1, 1, 1, 2, 1, 5
Offset: 1
Keywords
Programs
-
Mathematica
Length/@Split[Mod[Differences[Prime[Range[200]]],4]]