A218291 Multiples of 6 such that the sum of their digits is also a multiple of 6.

6, 24, 42, 48, 60, 66, 84, 114, 132, 138, 150, 156, 174, 192, 198, 204, 222, 228, 240, 246, 264, 282, 288, 312, 318, 330, 336, 354, 372, 378, 390, 396, 402, 408, 420, 426, 444, 462, 468, 480, 486, 510, 516, 534, 552, 558, 570, 576, 594, 600, 606, 624, 642, 648

Offset

1,1

Links

Bruno Berselli, Table of n, a(n) for n = 1..1000

Example

48 is a multiple of 6, and 4+8=12 is also a multiple of 6.

Mathematica

Select[ Range[6, 700, 6], Mod[ Total[ IntegerDigits[#]], 6] == 0 &] (* Jean-François Alcover, Oct 26 2012 *)

Prog

(Magma) [n: n in [6..700 by 6] | IsZero(&+Intseq(n) mod 6)];

Crossrefs

Subsequence of A179082.

Cf. multiples of k with digit sum divisible by k: A008585 (k=3), A008591 (k=9), A062753 (k=4), A179082 (k=2), A216994 (k=7), A216995 (k=11), A216997 (k=8), A218290 (k=5), A218292 (k=10).

Sequence in context: A273788 A063961 A328180 * A062899 A061811 A252066

Adjacent sequences: A218288 A218289 A218290 * A218292 A218293 A218294

Keyword

nonn,base,easy

Author

Bruno Berselli, Oct 25 2012

Status

approved