|
|
A069172
|
|
Smallest triangular number such that arithmetic mean of its digits = n (sum of the digits = n times the number of digits).
|
|
0
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[k = 1; While[ Apply[ Plus, IntegerDigits[k(k + 1)/2]] != n*Floor[ Log[10, k(k + 1)/2] + 1], k++ ]; Print[k(k + 1)/2], {n, 1, 7}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,fini,full,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|