login
Map n = Sum c_i 10^i to a(n) = Sum c_i 4^i.
3

%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_.