A196032 Numbers having at least one zero in base 4 representation.
4, 8, 12, 16, 17, 18, 19, 20, 24, 28, 32, 33, 34, 35, 36, 40, 44, 48, 49, 50, 51, 52, 56, 60, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 88, 92, 96, 97, 98, 99, 100, 104, 108, 112, 113, 114, 115, 116, 120, 124, 128
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A023705 (complement).
Programs
-
Haskell
a196032 n = a196032_list !! (n-1) a196032_list = filter f [1..] where f 0 = False; f x = m == 0 || f x' where (x',m) = divMod x 4 -- Reinhard Zumkeller, Oct 19 2011
-
Mathematica
Select[Range[200], DigitCount[#, 4, 0] > 0 &] (* Paolo Xausa, Mar 22 2025 *)