|
|
A218291
|
|
Multiples of 6 such that the sum of their digits is also a multiple of 6.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|