OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
repcount[x_] := Length/@Split[x]
binrep[x_] := repcount[IntegerDigits[x, 2]]
Table[h = binrep[x]; FromDigits[h, Max[h] + 1], {x, 1, DESIRED_NUMBER_OF_DIGITS}]
f[n_] := Block[{a = Length /@ Split@ IntegerDigits[n, 2]}, FromDigits[a, Max@ a + 1]]; Array[f, 70] (* Robert G. Wilson v, Aug 17 2013 *)
PROG
(Haskell)
a175911 n = foldl1 (\v d -> b * v + d) rls where
b = maximum rls + 1
rls = a101211_row n
-- Reinhard Zumkeller, Dec 16 2013
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Dylan Hamilton, Oct 14 2010
STATUS
approved