|
|
A054351
|
|
Successive generations of the Kolakoski sequence A000002.
|
|
11
|
|
|
1, 12, 1221, 1221121, 12211212212, 122112122122112112, 1221121221221121122121121221, 1221121221221121122121121221121121221221121, 12211212212211211221211212211211212212211212212112112212211212212
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
PROG
|
(Python)
from itertools import accumulate, groupby, repeat
def K(n, _):
c, s = "12", ""
for i, k in enumerate(str(n)): s += c[i%2]*int(k)
return int(s + c[(i+1)%2])
def aupton(nn): return list(accumulate(repeat(1, nn+1), K))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 05 2003
|
|
STATUS
|
approved
|
|
|
|