|
%I #7 Jun 17 2017 10:26:10
%S 1,3,6,15,28,55,66,91,105,120,153,171,210,231,276,300,351,378,435,465,
%T 528,561,630,666,741,780,861,903,990,1128,1326,1830,2145,2415,3081,
%U 5151,5995,6105,7140,8385,8646,9591,9870,10153,11026,11175,12246,12403
%N Triangular numbers with arithmetic mean of digits = integer (sum of digits = A multiple of the number of digits).
%H Harvey P. Dale, <a href="/A069712/b069712.txt">Table of n, a(n) for n = 0..1000</a>
%t Do[ If[ IntegerQ[ Apply[ Plus, IntegerDigits[n(n + 1)/2]] / Floor[ Log[10, n(n + 1)/2] + 1]], Print[n(n + 1)/2]], {n, 1, 10^3}]
%t Select[Accumulate[Range[200]],IntegerQ[Mean[IntegerDigits[#]]]&] (* _Harvey P. Dale_, Jun 17 2017 *)
%Y Cf. A069709, A069710, A069711.
%K base,nonn
%O 0,2
%A _Amarnath Murthy_, Apr 08 2002
%E Edited and extended by _Robert G. Wilson v_, Apr 12 2002
|
