|
%I #3 Mar 30 2012 17:31:00
%S 2,3,4,5,7,10,13,15,17,18,29,31,36,42,45,46,50,66,75,78,80,86,129,132,
%T 134,140,156,165,169,170,174,189,267,293,298,323,389,394,521,535,542,
%U 553,557,594,606,611,618,717,771,812,914,1030,1043,1064,1069,1113,1118
%N Records in A092762.
%t 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
%Y Cf. A092762.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Apr 21 2004
|
