login
Numbers that either contain the digit 6 or are divisible by 6.
4

%I #17 Jul 19 2016 03:16:47

%S 0,6,12,16,18,24,26,30,36,42,46,48,54,56,60,61,62,63,64,65,66,67,68,

%T 69,72,76,78,84,86,90,96,102,106,108,114,116,120,126,132,136,138,144,

%U 146,150,156,160,161,162,163,164,165,166,167,168,169,174,176,180,186,192,196

%N Numbers that either contain the digit 6 or are divisible by 6.

%H Vincenzo Librandi, <a href="/A092455/b092455.txt">Table of n, a(n) for n = 0..1000</a>

%t Select[Range[0,200],Divisible[#,6]||DigitCount[#,10,6]>0&] (* _Harvey P. Dale_, Jun 04 2011 *)

%t Select[Range[0, 300], Mod[#, 6] == 0||MemberQ[IntegerDigits[#], 6] &] (* _Vincenzo Librandi_, Jul 19 2016 *)

%Y Cf. A092433, A092451, A092452, A092453, A092454, A092456, A092457.

%K nonn,base

%O 0,2

%A _N. J. A. Sloane_, Mar 24 2004

%E More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 25 2004

%E Corrected by _Harvey P. Dale_, Jun 04 2011