A094018 Records in A092762.

2, 3, 4, 5, 7, 10, 13, 15, 17, 18, 29, 31, 36, 42, 45, 46, 50, 66, 75, 78, 80, 86, 129, 132, 134, 140, 156, 165, 169, 170, 174, 189, 267, 293, 298, 323, 389, 394, 521, 535, 542, 553, 557, 594, 606, 611, 618, 717, 771, 812, 914, 1030, 1043, 1064, 1069, 1113, 1118

Offset: 1

Author

Robert G. Wilson v, Apr 21 2004

Keywords

• nonn

Crossrefs

Cf. A092762.

Programs

Mathematica

f[n_] := ToString[ FromDigits[ IntegerDigits[n, 2]]]; g[n_] := g[n] = Block[{k = 1, s = f[n! ]}, While[ StringPosition[s, f[k]] != {}, k++ ]; k]; lst = {}; a = 0; Do[b = g[n]; If[b > a, a = b; AppendTo[lst, a]], {n, 1, 1161}]; lst