A067082 If n = abc...def in decimal notation then the right digit sum function = abc...def + bc...def + c...def + ... + def + ef + f.

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, 32, 34, 36, 38, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 70, 72

Offset

0,3

Links

Table of n, a(n) for n=0..71.

Formula

a(abcd) = abcd+{abcd-1000a}+{abcd-1000a - 100b}+(abcd-1000a-100b-10c}

n*length(n)-Sum_{k=1..length(n)} 10^k*floor(n/10^k). - Vladeta Jovovic, Jan 08 2002

Example

a(256) = 256 + 56 + 6 = 318.

Mathematica

Table[d = IntegerDigits[n]; rd = 0; While[ Length[d] > 0, rd = rd + FromDigits[d]; d = Drop[d, 1]]; rd, {n, 0, 75} ]

Crossrefs

Cf. A067079, A067080, A065039.

Sequence in context: A172432 A317622 A331400 * A102685 A032960 A117804

Adjacent sequences: A067079 A067080 A067081 * A067083 A067084 A067085

Keyword

base,nonn

Author

Amarnath Murthy, Jan 05 2002

Extensions

More terms from Robert G. Wilson v, Jan 07 2002

Status

approved