A373819 Run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.
1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 4, 2, 3, 2, 4, 3, 2, 1, 1, 1, 3, 1, 1, 1, 2, 1, 3, 1, 10, 2, 4, 1, 7, 1, 4, 1, 3, 1, 2, 1, 1, 1, 2, 1, 18, 3, 2, 1, 2, 1, 17, 2, 1, 2, 2, 1, 6, 1, 9, 1, 3, 1, 1, 1, 1, 1, 1, 1, 8, 1, 3, 1, 2, 2, 15, 1, 1, 1, 4, 1, 1, 1, 1, 1, 7, 1
Offset: 1
Keywords
Examples
The odd primes begin: 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, ... with runs: 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 with lengths: 3, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, ... which have runs beginning: 3 2 2 1 2 1 2 1 1 2 1 2 1 1 1 1 2 2 1 1 1 with lengths a(n).
Links
Crossrefs
Programs
-
Mathematica
Length/@Split[Length/@Split[Select[Range[3,1000], PrimeQ],#1+2==#2&]//Most]//Most
Comments