OFFSET
1,3
LINKS
T. D. Noe, Table of n, a(n) for n = 1..8192
MATHEMATICA
Clear[t]; t[1] = 0; t[n_] := t[n] = If[Mod[n, 2] == 0, t[n/2] + 1, 10*t[(n + 1)/2]]; Table[t[n], {n, 2^8}] (* T. D. Noe, Jun 26 2012 *)
PROG
(Magma) [n eq 1 select 0 else IsEven(n) select Self(n div 2)+1 else 10*Self((n+1) div 2): n in [1..60]]; // Bruno Berselli, Mar 07 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Explanation (and correction) supplied by Jay Coskey (jmc(AT)tera.com) 8/97.
STATUS
approved