A273159 - OEIS

%I #19 May 15 2019 13:58:05

%S 0,7,16,25,34,43,52,59,61,68,70,77,86,95,106,115,124,133,142,149,151,

%T 158,160,167,176,185,194,205,214,223,232,239,241,248,250,257,266,275,

%U 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

%N Numbers whose digit sum is divisible by 7.

%H Elana Lessing, <a href="/A273159/b273159.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[0,500],Divisible[Total[IntegerDigits[#]],7]&] (* _Harvey P. Dale_, May 15 2019 *)

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

%Y Cf. A007953.

%K base,nonn

%O 1,2

%A _Elana Lessing_, May 16 2016