|
|
A014837
|
|
Sum of all the digits of n in every base from 2 to n-1.
|
|
11
|
|
|
2, 3, 7, 9, 15, 16, 20, 24, 34, 33, 45, 51, 59, 57, 73, 72, 90, 91, 103, 113, 135, 127, 143, 155, 167, 170, 198, 192, 222, 220, 240, 256, 280, 260, 296, 314, 338, 332, 372, 366, 408, 415, 429, 451, 497, 471, 507, 514, 546, 555, 607, 597, 637, 633, 669, 697
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
3,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Table[Plus @@ Flatten[Table[IntegerDigits[n, b], {b, 2, n - 1}]], {n, 3, 36}] (* Alonso del Arte, Mar 28 2009 *)
|
|
PROG
|
(Python)
from sympy.ntheory.digits import digits
def a(n): return sum(sum(digits(n, b)[1:]) for b in range(2, n))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|