A092455 Numbers that either contain the digit 6 or are divisible by 6.
0, 6, 12, 16, 18, 24, 26, 30, 36, 42, 46, 48, 54, 56, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 72, 76, 78, 84, 86, 90, 96, 102, 106, 108, 114, 116, 120, 126, 132, 136, 138, 144, 146, 150, 156, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 174, 176, 180, 186, 192, 196
Offset: 0
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Select[Range[0,200],Divisible[#,6]||DigitCount[#,10,6]>0&] (* Harvey P. Dale, Jun 04 2011 *) Select[Range[0, 300], Mod[#, 6] == 0||MemberQ[IntegerDigits[#], 6] &] (* Vincenzo Librandi, Jul 19 2016 *)
Extensions
More terms from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 25 2004
Corrected by Harvey P. Dale, Jun 04 2011