A273159 Numbers whose digit sum is divisible by 7.

0, 7, 16, 25, 34, 43, 52, 59, 61, 68, 70, 77, 86, 95, 106, 115, 124, 133, 142, 149, 151, 158, 160, 167, 176, 185, 194, 205, 214, 223, 232, 239, 241, 248, 250, 257, 266, 275, 284, 293, 304, 313, 322, 329, 331, 338, 340, 347, 356, 365, 374, 383, 392, 399, 403, 412, 419, 421, 428, 430, 437, 446, 455, 464

Offset: 1

Author

Elana Lessing, May 16 2016

Keywords

• base
• nonn

Links

• Elana Lessing, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007953.

Programs

Mathematica

Select[Range[0,500],Divisible[Total[IntegerDigits[#]],7]&] (* Harvey P. Dale, May 15 2019 *)

PARI

for(n=0,10^3,if(sumdigits(n)%7==0,print1(n,", "))); \\ Joerg Arndt, May 17 2016