|
|
A001389
|
|
To get the 6th term, for example, note that 5th term has three (10 in ternary!) 1's, one (1) 0, etc., giving 10 1 1 0 1 2 2 1 1 2.
|
|
1
|
|
|
2, 12, 1112, 10112, 11102112, 10110122112, 1110211011222112, 10110122110211022112, 1110211011222110122110222112, 10110122110211022110112221101022112, 11102110112221101221102221102110221101110222112
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
a[1]=2; a[n_] := a[n] = FromDigits@ Flatten@ Table[ {IntegerDigits[ Length[e], 3], e[[1]]}, {e, Split[ IntegerDigits[ a[n - 1]]]}]; Array[a, 11] (* Giovanni Resta, Mar 25 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|