A341171 Numbers that when divided by the sum of their digits leave 4 as remainder.

14, 25, 44, 64, 89, 92, 104, 116, 151, 154, 158, 191, 196, 214, 238, 244, 260, 284, 289, 290, 332, 334, 340, 355, 395, 403, 404, 424, 472, 484, 514, 536, 548, 598, 604, 620, 628, 662, 706, 772, 796, 823, 854, 878, 884, 914, 916, 940, 973, 979, 994, 1004, 1033, 1052, 1054, 1057

Offset

1,1

Links

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

Example

a(1) = 14 and 14 is 5*2 with remainder 4;
a(2) = 25 and 25 is 7*3 with remainder 4; etc.

Mathematica

A341171Q[k_] := Mod[k, Total[IntegerDigits[k]]] == 4;
Select[Range[1200], A341171Q] (* 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: A031075 A020227 A032608 * A164403 A164398 A174519

Adjacent sequences: A341168 A341169 A341170 * A341172 A341173 A341174

Keyword

base,nonn

Author

Eric Angelini and Carole Dubois, Feb 06 2021

Status

approved