|
%I #17 Aug 18 2016 12:18:47
%S 0,6,15,24,33,39,42,48,51,57,60,66,75,84,93,99,105,114,123,129,132,
%T 138,141,147,150,156,165,174,183,189,192,198,204,213,219,222,228,231,
%U 237,240,246,255,264,273,279,282,288,291,297,303,309,312,318,321,327,330,336,345,354,363,369,372,378,381
%N Numbers whose digit sum is divisible by 6.
%C Numbers n such that A007953(n) is a term of A008588. - _Felix Fröhlich_, Aug 18 2016
%C Any term of the sequence is also a term of A008585. - _Felix Fröhlich_, Aug 18 2016
%o (C)
%o int i = 0;
%o while(1){
%o int sum = 0;
%o int powerof10 = 10;
%o int i2 = i;
%o while(i2 != 0){
%o sum += i2%powerof10;
%o i2 /= 10;
%o powerof10 *= 10;
%o }
%o if(sum%6 == 0) printf("%d\n", i);
%o i++;
%o }
%o (PARI) is(n)=my(d=digits(n));sum(k=1,#d,d[n])%6==0; \\ _Joerg Arndt_, Aug 18 2016
%o (PARI) is(n)=sumdigits(n)%6==0 \\ _Charles R Greathouse IV_, Aug 18 2016
%Y Cf. A007953.
%K base,nonn,easy
%O 1,2
%A _Elana Lessing_, Jun 17 2016
|
