OFFSET
0,2
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 0..10000
EXAMPLE
The Kolakoski sequence begins (1,2,2,1,1), (2,1,2,2,1), (2,2,1,1,2), (1,1,2,2,1), hence sequence begins 1,2,2,1.
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)/5)-1: for n from 0 to lim2 do if(s[5*n+1]+s[5*n+2]+s[5*n+3]+s[5*n+4]+s[5*n+5]<=7)then printf("1, "): else printf("2, "): fi: od: # Nathaniel Johnston, May 01 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Jon Perry, Sep 21 2002
STATUS
approved