cp's OEIS Frontend

A341176 Numbers that when divided by the sum of their digits leave 9 as remainder.

%I A341176 #19 Feb 02 2022 15:41:40
%S A341176 19,57,69,93,99,109,119,129,139,149,159,165,169,179,189,199,218,237,
%T A341176 249,256,273,275,279,294,297,309,317,339,345,369,373,381,384,387,389,
%U A341176 416,417,429,453,457,459,474,477,485,490,495,515,519,525,527,549,561,564
%N A341176 Numbers that when divided by the sum of their digits leave 9 as remainder.
%H A341176 Carole Dubois, <a href="/A341176/b341176.txt">Table of n, a(n) for n = 1..5001</a>
%e A341176 a(1) = 19 and 19 is 10*1 with remainder 9;
%e A341176 a(2) = 57 and 57 is 12*4 with remainder 9; etc.
%t A341176 Select[Range[600],Mod[#,Total[IntegerDigits[#]]]==9&] (* _Harvey P. Dale_, Feb 02 2022 *)
%o A341176 (PARI) isok(n) = n%sumdigits(n) == 9; \\ _Michel Marcus_, Feb 06 2021
%Y A341176 Cf. A005349 (Niven numbers: remainder = 0), A209871 (Quasi-Niven numbers: remainder = 1), A341169 to A341182 (remainders = 2 to 15).
%K A341176 base,nonn
%O A341176 1,1
%A A341176 _Eric Angelini_ and _Carole Dubois_, Feb 06 2021