|
%I #18 Apr 28 2023 08:17:47
%S 5,19,28,37,46,55,64,73,82,91,159,168,177,186,195,249,258,267,276,285,
%T 294,339,348,357,366,375,384,393,429,438,447,456,465,474,483,492,519,
%U 528,537,546,555,564,573,582,591,609,618,627,636,645,654,663,672,681
%N Sum of digits = 5 times number of digits.
%H Delbert L. Johnson, <a href="/A061388/b061388.txt">Table of n, a(n) for n = 1..20000</a>
%e 186 is a term as the arithmetic mean of the digits is (1+8+6)/3 = 5.
%t Select[Range[685],Total[x=IntegerDigits[#]]==5*Length[x] &]
%o (Magma) [ n: n in [1..700] | &+Intseq(n) eq 5*#Intseq(n) ]; // _Bruno Berselli_, Jun 30 2011
%Y Cf. A061383, A061384, A061385, A061386, A061387, A061423, A061424, A061425.
%K nonn,base,easy
%O 1,1
%A _Amarnath Murthy_, May 03 2001
%E More terms from Larry Reeves (larryr(AT)acm.org), May 16 2001
|
