OFFSET
0,2
LINKS
EXAMPLE
a(0) = 1;
a(1) = a(2*0+1) = a(0) + R(a(0)) = 1 + 1 = 2;
a(2) = a(2*1) = a(1) = 2;
a(3) = a(2*1+1) = a(1) + R(a(1)) = 2 + 2 = 4;
a(4) = a(2*2) = a(2) = 2;
a(5) = a(2*2+1) = a(2) + R(a(2)) = 2 + 2 = 4, etc.
MATHEMATICA
a[0] = 0; a[n_] := If[EvenQ[n], a[n/2], a[(n - 1)/2] + FromDigits[Reverse[IntegerDigits[a[(n - 1)/2]]]] ]; Table[a[n], {n, 0, 90}]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ilya Gutkovskiy, Apr 25 2017
STATUS
approved