login
A094018
Records in A092762.
0
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,1
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
CROSSREFS
Cf. A092762.
Sequence in context: A050729 A117536 A104665 * A183106 A296610 A071682
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 21 2004
STATUS
approved