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,1

Links

Table of n, a(n) for n=1..59.

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}]]]

Crossrefs

Cf. A092601.

Sequence in context: A007618 A004748 A038030 * A116033 A290469 A140507

Adjacent sequences: A094013 A094014 A094015 * A094017 A094018 A094019

Keyword

nonn

Author

Robert G. Wilson v, Apr 21 2004

Status

approved