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
Examples
48 is a multiple of 6, and 4+8=12 is also a multiple of 6.
Links
- Bruno Berselli, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Magma
[n: n in [6..700 by 6] | IsZero(&+Intseq(n) mod 6)];
-
Mathematica
Select[ Range[6, 700, 6], Mod[ Total[ IntegerDigits[#]], 6] == 0 &] (* Jean-François Alcover, Oct 26 2012 *)