A341174 Numbers that when divided by the sum of their digits leave 7 as remainder.

29, 37, 71, 77, 85, 127, 128, 143, 215, 217, 227, 295, 296, 307, 319, 326, 329, 425, 431, 436, 439, 449, 455, 503, 524, 553, 577, 581, 583, 587, 623, 670, 707, 722, 727, 748, 755, 767, 821, 833, 871, 904, 908, 919, 920, 947, 1007, 1019, 1027, 1085, 1117, 1118, 1138, 1151, 1159

Offset

1,1

Links

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

Example

a(1) = 29 and 29 is 11*2 with remainder 7;
a(2) = 37 and 37 is 10*3 with remainder 7; etc.

Mathematica

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

Prog

(PARI) isok(n) = n%sumdigits(n) == 7; \\ Michel Marcus, Feb 06 2021

Crossrefs

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

Sequence in context: A139851 A139895 A304688 * A167470 A152865 A333422

Adjacent sequences: A341171 A341172 A341173 * A341175 A341176 A341177

Keyword

base,nonn

Author

Eric Angelini and Carole Dubois, Feb 06 2021

Status

approved