A178362 Numbers with rounded up arithmetic mean of digits = 2.
2, 12, 13, 21, 22, 30, 31, 40, 103, 104, 105, 112, 113, 114, 121, 122, 123, 130, 131, 132, 140, 141, 150, 202, 203, 204, 211, 212, 213, 220, 221, 222, 230, 231, 240, 301, 302, 303, 310, 311, 312, 320, 321, 330, 400, 401, 402, 410, 411, 420, 500, 501, 510, 600
Offset: 1
Programs
-
Mathematica
Select[Range[600],Ceiling[Mean[IntegerDigits[#]]]==2&] (* Harvey P. Dale, Aug 10 2012 *)
Comments