|
|
A094009
|
|
Least number k such that k! in binary representation has n consecutive ones.
|
|
1
|
|
|
1, 3, 7, 5, 10, 12, 33, 38, 47, 39, 67, 37, 120, 71, 189, 568, 119, 411, 952, 909, 1438, 1215, 2107, 3435, 10644, 4390, 19154, 12144, 21458, 27294, 54773, 104306, 115552, 46620, 112657, 100468
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
a(4)=5 because 5!_d = 1111000_b.
|
|
MATHEMATICA
|
helper[b_][a : {b_, ___}] := Length[a]; helper[b_][a_List] := 0; maxConsecutiveCount[m_List, x_] := Max[helper[x] /@ Split[m]] (* Bobby R. Treat (drbob(AT)bigfoot.com), Apr 20 2004)
a = Table[0, {30}]; Do[ b = maxConsecutiveCount[ IntegerDigits[n!, 2], 1]; If[ a[[b]] == 0, a[[b]] = n], {n, 17500}]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
19154, 12144 and 21458 from Bobby R. Treat, Apr 21 2004
|
|
STATUS
|
approved
|
|
|
|