|
Search: id:A069172
|
|
|
| A069172 |
|
Smallest triangular number such that arithmetic mean of its digits = n (sum of the digits = n times the number of digits). |
|
+0
1
|
| |
|
|
OFFSET
|
1,2
|
|
|
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
|
Cf. A069790.
Sequence in context: A048920 A091539 A157874 this_sequence A104437 A112814 A058179
Adjacent sequences: A069169 A069170 A069171 this_sequence A069173 A069174 A069175
|
|
KEYWORD
|
base,fini,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 09 2002
|
|
|
Search completed in 0.002 seconds
|
