The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #29 Aug 30 2021 21:11:26
%S 16,39,55,96,187
%N Numbers with property that when divided by the sum of their digits the quotient and remainder are the same.
%H Rene Morningstar, Quora blog post <a href="https://www.quora.com/The-numbers-16-39-55-96-187-have-a-curious-property-each-of-them-when-divided-by-the-sum-of-its-digits-gives-a-remainder-equal-to-the-quotient-How-do-I-find-all-such-numbers">#1626147897</a>, Aug 15 2021. Joe Zbiciak and several others gave a proof that the sequence is complete.
%t Select[Range[200000],Differences[QuotientRemainder[#,Total[ IntegerDigits[ #]]]] == {0}&]
%K nonn,fini,full,base
%O 1,1
%A _Harvey P. Dale_, Aug 30 2021