A074295 Dominant (i.e., most populous) digit in Kolakoski sequence (A000002) when partitioned into groups of 7.

1, 2, 2, 1, 1, 2, 1, 2, 2, 1, 2, 2, 1, 1, 2, 2, 1, 1, 1, 2, 2, 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 2, 1, 1, 2, 2, 2, 1, 2, 2, 1, 1, 2, 1, 1, 1, 2, 1

Offset

1,2

Links

Nathaniel Johnston, Table of n, a(n) for n = 1..10000

Example

Kolakoski : (1,2,2,1,1,2,1),(2,2,1,2,2,1,1),(2,1,1,2,2,1,2),... hence 1,2,2,...

Maple

lim:=400: s:=[1, 2, 2]: for n from 3 to lim do for i from 1 to s[n] do s:=[op(s), 1+((n-1)mod 2)]: od: od: lim2:=floor(nops(s)/7)-1: for n from 0 to lim2 do if(add(s[7*n+k], k=1..7)<=10)then printf("1, "): else printf("2, "): fi: od: # Nathaniel Johnston, May 01 2011

Crossrefs

Cf. A074292, A074293.

Sequence in context: A331349 A078880 A000002 * A331348 A236479 A116514

Adjacent sequences: A074292 A074293 A074294 * A074296 A074297 A074298

Keyword

nonn,base,easy

Author

Jon Perry, Sep 21 2002

Status

approved