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
KEYWORD
base,nonn
AUTHOR
Elana Lessing, May 16 2016
STATUS
approved