A026613 Number of 2's between n-th 3 and (n+1)st 3 in A026600.
1, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 0, 2, 1, 1, 1, 0, 1, 2, 1, 1, 1, 0, 2, 0, 2, 1, 0, 2, 0, 2, 1, 1, 1, 0, 1, 2, 1, 1, 1, 0, 2, 0, 2, 1, 1, 0, 2, 0, 2, 0, 2, 1, 0, 2, 1, 1, 1, 0, 2, 0, 2, 1, 1, 0, 2, 0, 2, 0, 2, 1, 1, 0, 2, 0, 2, 1, 1, 1, 0, 2, 0, 2, 0, 2, 1, 1, 1, 0, 1
Offset: 1
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..19682
Programs
-
Mathematica
Rest@ Map[Count[#, 2] &, DeleteCases[SplitBy[#, # == 3 &], ?(# == {3} &)]] &@ Nest[Flatten[# /. {1 -> {1, 2, 3}, 2 -> {2, 3, 1}, 3 -> {3, 1, 2}}] &, {1}, 6] (* _Michael De Vlieger, Apr 16 2019, after Robert G. Wilson v at A026600 *)
Comments