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

Links

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

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

Adjacent sequences: A094015 A094016 A094017 * A094019 A094020 A094021

Keyword

nonn

Author

Robert G. Wilson v, Apr 21 2004

Status

approved