|
| |
|
|
A069790
|
|
Triangular numbers with arithmetic mean of digits = 1 (sum of digits = number of digits).
|
|
1
| |
|
|
1, 120, 210, 300, 112101, 100600020, 101111310, 110120220, 200130021, 200310120, 1000051003, 1010004040, 1130002030, 1411000003, 2002021003, 3200200003, 5000050000, 100110002070, 111111101310, 111202101003
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| The sum of the digits of a triangular number is 0, 1, 3 or 6 (mod 9).
|
|
|
MATHEMATICA
| s=Select[Range[500000], Length[z=IntegerDigits[ #(#+1)/2]]==Plus@@z&]; s(s+1)/2
Select[Accumulate[Range[500000]], Mean[IntegerDigits[#]]==1&] (* From Harvey P. Dale, May 05 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A179232 A056994 A114823 * A064224 A069674 A003015
Adjacent sequences: A069787 A069788 A069789 * A069791 A069792 A069793
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 08 2002
|
|
|
EXTENSIONS
| Edited by Dean Hickerson (dean.hickerson(AT)yahoo.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 10 2002
|
| |
|
|
