|
%I #16 Sep 18 2020 11:26:43
%S 0,1,2,3,4,5,6,7,8,9,2,3,4,5,6,7,8,9,10,11,3,4,5,6,7,8,9,10,11,12,4,5,
%T 6,7,8,9,10,11,12,13,5,6,7,8,9,10,11,12,13,14,6,7,8,9,10,11,12,13,14,
%U 15,7,8,9,10,11,12,13,14,15,16,8,9,10,11,12,13,14,15,16,17,9,10,11,12,13,14,15,16,17,18,10,11,12,13,14,15,16,17,18,19,3
%N Sum of coefficients in the hereditary representation of n in base 10.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HereditaryRepresentation.html">Hereditary Representation.</a>
%F If n = Sum_{j=1..k} d_j*10^(e_j) where 0 <= e_1 < ... < e_k and 1 <= d_j <= 9, then a(n) = Sum_{j=1..k} (d_j + a(e_j)). - _Pontus von Brömssen_, Sep 17 2020
%e 266 = 6 + 6*10^1 + 2*10^2 which can be represented as [6, [6, [1]], [2, [2]]], therefore a(266) = 6 + 6 + 1 + 2 + 2 = 17.
%o (PARI) (hr(n,b=10)=if(1<#n=digits(n,b),my(v=if(n[#n],[n[#n]],[]));forstep(i=#n-1,1,-1,n[i]&&v=concat(v,[[n[i],hr(#n-i,b)]]));v,n));(cc(v)=if(type(v)=="t_VEC",sum(i=1,#v,cc(v[i])),v)); a(n)=cc(hr(n,10))
%o (Python)
%o def A273005(n):
%o s=str(n)[::-1]
%o return sum(int(s[i])+A273005(i) for i in range(len(s)) if s[i]!='0') # _Pontus von Brömssen_, Sep 17 2020
%Y Cf. A273004, A056004, A222112.
%K nonn,base
%O 0,3
%A _M. F. Hasler_, May 12 2016
|
