A378837 Numbers with the arithmetic mean of the digits equal to the digital root.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 99, 999, 1029, 1038, 1047, 1056, 1065, 1074, 1083, 1092, 1119, 1128, 1137, 1146, 1155, 1164, 1173, 1182, 1191, 1209, 1218, 1227, 1236, 1245, 1254, 1263, 1272, 1281, 1290, 1308, 1317, 1326, 1335, 1344, 1353, 1362, 1371, 1380, 1407, 1416, 1425, 1434, 1443

Offset: 1

Author

Stefano Spezia, Dec 09 2024

Keywords

• nonn
• base
• easy

Examples

			10 is not in the list because the mean of its digits is not integer.
11 is not in the list because the mean of its digits is 1 which is not equal to 2, the digital root of 11.
1029 is in the list because the mean of its digits is 3 which is equal to the digital root of 1029.
		

Links

• Stefano Spezia, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A010888, A378838.

Cf. A378560, A378564, A378835, A378836.

Programs

Mathematica

A010888[n_]:=If[n==0,0,n - 9*Floor[(n-1)/9]]; Select[Range[0,1500], Mean[IntegerDigits[#]]==A010888[#] &]