%I #18 Feb 28 2024 10:48:13
%S 576,729,149769,173889,178929,199809,278784,288369,294849,389376,
%T 439569,459684,467856,471969,509796,589824,599076,617796,660969,
%U 665856,675684,685584,695556,746496,751689,767376,777924,788544,793881,799236,853776,859329,870489
%N Squares whose arithmetic mean of digits is 6 (i.e., the sum of digits is 6 times the number of digits).
%C Each term's number of digits is divisible by 3. (See A316480.)
%H Jon E. Schoenfield, <a href="/A316486/b316486.txt">Table of n, a(n) for n = 1..10000</a>
%e 24^2 = 576, a 3-digit number whose digit sum is 5+7+6 = 18 = 6*3, so 576 is a term.
%e 10386^2 = 107868996, a 9-digit number whose digit sum is 1+0+7+8+6+8+9+9+6 = 54 = 6*9, so 107868996 is a term.
%t Select[Range[1000]^2,Mean[IntegerDigits[#]]==6&] (* _Harvey P. Dale_, Aug 05 2021 *)
%Y Cf. A069711, A316480.
%Y Intersection of A000290 and A061423. - _Michel Marcus_, Jul 06 2018
%K nonn,base
%O 1,1
%A _Jon E. Schoenfield_, Jul 04 2018
|