%I #27 Apr 29 2023 08:10:47
%S 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,
%T 2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,
%U 4,4,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6
%N a(n) = Sum_{j >= 1} floor(n/16^j).
%H G. C. Greubel, <a href="/A054900/b054900.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = (n - A053836(n))/15.
%F From _Hieronymus Fischer_, Aug 14 2007: (Start)
%F Recurrence:
%F a(n) = a(floor(n/16)) + floor(n/16).
%F a(16*n) = a(n) + n.
%F a(n*16^m) = a(n) + n*(16^m - 1)/15.
%F a(k*16^m) = k*(16^m - 1)/15, for 0 <= k < 16, m>=0.
%F Asymptotic behavior:
%F a(n) = n/15 + O(log(n)).
%F a(n+1) - a(n) = O(log(n)) (this follows from the inequalities below).
%F a(n) <= (n-1)/15; equality holds for powers of 16.
%F a(n) >= (n-15)/15 - floor(log_16(n)); equality holds for n = 16^m - 1, m > 0.
%F Limits:
%F lim inf (n/15 - a(n)) = 1/15, for n --> oo.
%F lim sup (n/15 - log_16(n) - a(n)) = 0, for n --> oo.
%F lim sup (a(n+1) - a(n) - log_16(n)) = 0, for n --> oo.
%F Series:
%F G.f.: (1/(1-x))*Sum_{k > 0} x^(16^k)/(1-x^(16^k)). (End)
%t a[n_, m_]:= If[n==0, 0, a[Floor[n/m], m] +Floor[n/m]];
%t Table[a[n, 16], {n,0,127}] (* _G. C. Greubel_, Apr 28 2023 *)
%o (Magma)
%o m:=16;
%o function a(n) // a = A054900, m = 16
%o if n eq 0 then return 0;
%o else return a(Floor(n/m)) + Floor(n/m);
%o end if; end function;
%o [a(n): n in [0..127]]; // _G. C. Greubel_, Apr 28 2023
%o (SageMath)
%o m=16 # a = A054900
%o def a(n): return 0 if (n==0) else a(n//m) + (n//m)
%o [a(n) for n in range(128)] # _G. C. Greubel_, Apr 28 2023
%Y Cf. A011371 and A054861 for analogs involving powers of 2 and 3.
%Y Cf. A053836, A054897, A054899, A067080, A098844, A132032.
%K nonn
%O 0,33
%A _Henry Bottomley_, May 23 2000
|