%I #9 Jan 14 2021 23:07:32
%S 0,1,2,3,4,5,6,7,8,9,5,6,7,8,9,10,11,12,13,14,10,11,12,13,14,15,16,17,
%T 18,19,15,16,17,18,19,20,21,22,23,24,20,21,22,23,24,25,26,27,28,29,25,
%U 26,27,28,29,30,31,32,33,34,30,31,32,33,34,35,36,37,38,39,35,36,37,38,39
%N Map n = Sum c_i 10^i to a(n) = Sum c_i 5^i.
%H Robert Israel, <a href="/A028900/b028900.txt">Table of n, a(n) for n = 0..10000</a>
%p f:= proc(n) local L,i;
%p L:= convert(n,base,10);
%p add(L[i]*5^(i-1),i=1..nops(L))
%p end proc:
%p map(f, [$1..100]); # _Robert Israel_, Jan 14 2021
%K nonn,base,look
%O 0,3
%A _N. J. A. Sloane_.
%E More terms from _Erich Friedman_.
|