|
%I #5 Dec 05 2013 19:55:07
%S 0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,22,24,26,28,20,22,24,26,28,30,
%T 32,34,36,38,30,32,34,36,38,40,42,44,46,48,40,42,44,46,48,50,52,54,56,
%U 58,50,52,54,56,58,60,62,64,66,68,60,62,64,66,68,70,72,74,76,78,70,72
%N If n = abc...def in decimal notation then the right digit sum function = abc...def + bc...def + c...def + ... + def + ef + f.
%F a(abcd) = abcd+{abcd-1000a}+{abcd-1000a - 100b}+(abcd-1000a-100b-10c}
%F n*length(n)-Sum_{k=1..length(n)} 10^k*floor(n/10^k). - _Vladeta Jovovic_, Jan 08 2002
%e a(256) = 256 + 56 + 6 = 318.
%t Table[d = IntegerDigits[n]; rd = 0; While[ Length[d] > 0, rd = rd + FromDigits[d]; d = Drop[d, 1]]; rd, {n, 0, 75} ]
%Y Cf. A067079, A067080, A065039.
%K base,nonn
%O 0,3
%A _Amarnath Murthy_, Jan 05 2002
%E More terms from _Robert G. Wilson v_, Jan 07 2002
|
