%I #18 Sep 03 2021 14:40:03
%S 79,287,367,498,499,593,655,687,695,697,746,775,797,875,876,879,895,
%T 899,939,943,946,1087,1288,1358,1375,1459,1489,1519,1569,1595,1599,
%U 1663,1664,1687,1695,1758,1775,1807,1817,1884,1885,1887,1947,1951,1955,1959,1970,1972
%N Numbers that when divided by the sum of their digits leave 15 as remainder.
%H Carole Dubois, <a href="/A341182/b341182.txt">Table of n, a(n) for n = 1..5001</a>
%e a(1) = 79 and 79 is 16*4 with remainder 15;
%e a(2) = 287 and 287 is 17*16 with remainder 15; etc.
%t Select[Range[2000],Mod[#,Total[IntegerDigits[#]]]==15&] (* _Harvey P. Dale_, Sep 03 2021 *)
%Y Cf. A005349 (Niven numbers: remainder = 0), A209871 (Quasi-Niven numbers: remainder = 1), A341169 to A341182 (remainders = 2 to 15).
%K base,nonn
%O 1,1
%A _Eric Angelini_ and _Carole Dubois_, Feb 06 2021