A098154
Summarize the previous term in ternary (in increasing order).
Original entry on oeis.org
1, 11, 21, 1112, 10112, 1010112, 2011112, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122, 1011122
Offset: 1
Summarizing a(8) = 1011122 in increasing digit order, there are "one 0, four 1's, two 2s", so concatenating 1 0 11 1 2 2 gives a(9) = 1011122 (=a(10)=a(11)=...).
A098155
Summarize the previous term in base 4 (in increasing order).
Original entry on oeis.org
1, 11, 21, 1112, 3112, 211213, 312213, 212223, 1110213, 101011213, 201111213, 101112213, 101112213, 101112213, 101112213, 101112213, 101112213, 101112213, 101112213, 101112213, 101112213, 101112213, 101112213, 101112213, 101112213
Offset: 1
Summarizing a(12) = 101112213 in increasing digit order, there are "one 0, five 1's, two 2s, one 3", so concatenating 1 0 11 1 2 2 1 3 gives a(13) = 101112213 (=a(14)=a(15)=...).
-
Nest[Append[#, FromDigits[Flatten@ Map[IntegerDigits[#, 4] & /@ Reverse@ # &, Tally@ Sort@ IntegerDigits@ #[[-1]] ] ]] &, {1}, 24] (* Michael De Vlieger, Jul 15 2020 *)
Showing 1-2 of 2 results.
Comments