
4, 8, 9, 10, 12, 16, 17, 18, 19, 20, 21, 22, 24, 25, 26, 28, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 48, 49, 50, 51, 52, 53, 54, 56, 57, 58, 60, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS



LINKS



MATHEMATICA

Select[Range[100], DigitCount[#, 2, 0]>1&] (* Harvey P. Dale, Jan 19 2015 *)


PROG

(Haskell)
a158582 n = a158582_list !! (n1)
a158582_list = [x  x < [0..], a023416 x > 1]


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved

