A132781 Numbers not containing '1010' in binary representation.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 22, 23, 24, 25, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 44, 45, 46, 47, 48, 49, 50, 51, 54, 55, 56, 57, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 75, 76, 77, 78, 79, 88, 89, 91, 92, 93

Offset: 1

Author

Reinhard Zumkeller, Aug 30 2007

Keywords

• nonn
• base

Comments

Complement of A132782; A000225 is a subsequence.

Links

• R. Zumkeller, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to binary expansion of n

Programs

Mathematica

Select[Range[0,100],FreeQ[Partition[IntegerDigits[#,2],4,1],{1,0,1,0}]&] (* Harvey P. Dale, Mar 07 2015 *)