|
%I #13 Nov 16 2017 15:52:22
%S 1,105,3,435,28,6,5995,589598998999878
%N Smallest triangular number such that arithmetic mean of its digits = n (sum of the digits = n times the number of digits).
%C Because A045914 is complete, this sequence is complete. - _Robert G. Wilson v_, Oct 30 2013
%t 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}]
%Y Cf. A069790.
%K base,fini,full,nonn
%O 1,2
%A _Robert G. Wilson v_, Apr 09 2002
%E a(8) from _Donovan Johnson_, Mar 30 2010
|
