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,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A007953.

Sequence in context: A136772 A190371 A367084 * A043481 A217009 A017245

Adjacent sequences: A273156 A273157 A273158 * A273160 A273161 A273162

Keyword

base,nonn

Author

Elana Lessing, May 16 2016

Status

approved