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,3

Links

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

Example

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.

Mathematica

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

Crossrefs

Cf. A010888, A378838.

Cf. A378560, A378564, A378835, A378836.

Sequence in context: A342978 A378835 A281091 * A271569 A239138 A345964

Adjacent sequences: A378834 A378835 A378836 * A378838 A378839 A378840

Keyword

nonn,base,easy

Author

Stefano Spezia, Dec 09 2024

Status

approved