|
| |
|
|
A074295
|
|
Dominant (i.e. most populous) digit in Kolakoski sequence (A000002) when partitioned into groups of 7.
|
|
3
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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: A013949 A078880 A000002 * A116514 A124767 A112933
Adjacent sequences: A074292 A074293 A074294 * A074296 A074297 A074298
|
|
|
KEYWORD
| nonn,base,easy
|
|
|
AUTHOR
| Jon Perry (perry(AT)globalnet.co.uk), Sep 21 2002
|
| |
|
|
