A092451 Numbers that either contain the digit 2 or are divisible by 2.

0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 121

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..2000

Mathematica

Select[Range[0, 140], DigitCount[#, 10, 2]>0||Divisible[ #, 2]&] (* Harvey P. Dale, Jun 28 2011 *)
Select[Range[0, 300], Mod[#, 2] == 0||MemberQ[IntegerDigits[#], 2] &] (* Vincenzo Librandi, Jul 19 2016 *)

Prog

(PARI) isok(n) = !(n % 2) || vecsearch(vecsort(digits(n, 2), , 8), 2); \\ Michel Marcus, Jul 19 2016

Crossrefs

Cf. A092433, A092452, A092453, A092454, A092455, A092456, A092457.

Sequence in context: A351626 A007928 A257219 * A214673 A055962 A337718

Adjacent sequences: A092448 A092449 A092450 * A092452 A092453 A092454

Keyword

nonn,base

Author

N. J. A. Sloane, Mar 24 2004

Extensions

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

Status

approved