%I #10 Jun 12 2018 02:42:18
%S 0,1,2,3,4,5,6,7,8,9,4,5,6,7,8,9,10,11,12,13,8,9,10,11,12,13,14,15,16,
%T 17,12,13,14,15,16,17,18,19,20,21,16,17,18,19,20,21,22,23,24,25,20,21,
%U 22,23,24,25,26,27,28,29,24,25,26,27,28,29,30,31,32,33,28,29,30,31,32,33
%N Map n = Sum c_i 10^i to a(n) = Sum c_i 4^i.
%H Robert Israel, <a href="/A028899/b028899.txt">Table of n, a(n) for n = 0..10000</a>
%F From _Robert Israel_, Jun 11 2018: (Start)
%F a(i+10*j) = i + 4*a(j) for 0 <= i <= 9.
%F G.f. g(x) satisfies g(x) = (x+2*x^2+...+9*x^9)/(1-x^10) + 4*(1-x^10)*g(x^10)/(1-x). (End)
%p f:= proc(n) option remember;
%p n mod 10 + 4*procname(floor(n/10))
%p end proc:
%p f(0):= 0:
%p map(f, [$0..100]); # _Robert Israel_, Jun 11 2018
%K nonn,base,look
%O 0,3
%A _N. J. A. Sloane_.
%E More terms from _Erich Friedman_.