A341172 Numbers that when divided by the sum of their digits leave 5 as remainder.

38, 53, 55, 61, 124, 125, 137, 145, 148, 235, 236, 250, 257, 265, 277, 313, 325, 335, 341, 382, 383, 413, 415, 434, 502, 505, 509, 533, 565, 566, 616, 632, 635, 701, 709, 719, 731, 733, 761, 784, 785, 830, 850, 853, 872, 955, 965, 1006, 1028, 1045, 1061, 1084

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000 (terms 1..5001 from Carole Dubois).

Example

a(1) = 38 and 38 is 11*3 with remainder 5;
a(2) = 53 and 53 is 8*6 with remainder 5; etc.

Mathematica

A341172Q[k_] := Mod[k, Total[IntegerDigits[k]]] == 5;
Select[Range[1200], A341172Q] (* Paolo Xausa, Dec 02 2025 *)

Crossrefs

Cf. A005349 (Niven numbers: remainder = 0), A209871 (Quasi-Niven numbers: remainder = 1), A341169 to A341182 (remainders = 2 to 15).

Sequence in context: A039352 A043175 A043955 * A077801 A078544 A116243

Adjacent sequences: A341169 A341170 A341171 * A341173 A341174 A341175

Keyword

base,nonn

Author

Eric Angelini and Carole Dubois, Feb 06 2021

Status

approved