A043333 Numbers having one 0 in base 4.
4, 8, 12, 17, 18, 19, 20, 24, 28, 33, 34, 35, 36, 40, 44, 49, 50, 51, 52, 56, 60, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83, 84, 88, 92, 97, 98, 99, 100, 104, 108, 113, 114, 115, 116, 120, 124, 133, 134, 135, 137, 138, 139, 141, 142
Offset: 1
Crossrefs
Cf. A007090.
Programs
-
Mathematica
Select[Range[150],DigitCount[#,4,0]==1&] (* Harvey P. Dale, Jul 23 2011 *)
Formula
A023706 \ {0}. - R. J. Mathar, Oct 20 2008