A094016 Complement of A092601.

5, 10, 11, 13, 22, 25, 29, 31, 32, 36, 41, 47, 49, 50, 52, 54, 57, 60, 67, 69, 72, 76, 79, 88, 90, 92, 98, 99, 102, 104, 105, 107, 109, 110, 112, 113, 121, 122, 125, 130, 135, 141, 143, 144, 148, 150, 151, 154, 160, 163, 165, 168, 170, 171, 174, 179, 182, 184, 186

Offset: 1

Author

Robert G. Wilson v, Apr 21 2004

Keywords

• nonn

Crossrefs

Cf. A092601.

Programs

Mathematica

f[n_] := ToString[ FromDigits[ IntegerDigits[n, 2]]]; g[n_] := g[n] = Block[{c = 0, k = 1, s = f[n! ]}, While[k <= n, If[ StringPosition[ s, f[k]] != {}, c++ ]; k++ ]; c]; Complement[ Range[200], Union[ Table[ g[n], {n, 202}]]]