A341180 Numbers that when divided by the sum of their digits leave 13 as remainder.

98, 167, 293, 298, 349, 419, 469, 493, 545, 557, 637, 671, 781, 863, 887, 893, 923, 925, 982, 988, 1049, 1069, 1169, 1175, 1357, 1399, 1427, 1475, 1495, 1553, 1597, 1628, 1645, 1666, 1781, 1793, 1795, 1805, 1837, 1888, 1931, 1933, 1934, 1973, 1993, 2057, 2077, 2087

Offset

1,1

Links

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

Example

a(1) = 98 and 98 is 17*5 with remainder 13;
a(2) = 167 and 167 is 14*11 with remainder 13; etc.

Mathematica

A341180Q[k_] := Mod[k, Total[IntegerDigits[k]]] == 13;
Select[Range[2500], A341180Q] (* 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: A109553 A268253 A105405 * A044430 A044811 A063369

Adjacent sequences: A341177 A341178 A341179 * A341181 A341182 A341183

Keyword

base,nonn

Author

Eric Angelini and Carole Dubois, Feb 06 2021

Status

approved