|
| |
|
|
A067082
|
|
If n = abc...def in decimal notation then the right digit sum function = abc...def + bc...def + c...def + ... + def + ef + f.
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
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 (vladeta(AT)eunet.rs), 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: A190760 A067036 A119823 * A102685 A005358 A032960
Adjacent sequences: A067079 A067080 A067081 * A067083 A067084 A067085
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jan 05 2002
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 07 2002
|
| |
|
|
