|
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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]] (from Dr. Bob 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
| Cf. A094010.
Sequence in context: A019809 A021270 A113910 * A088514 A066677 A061026
Adjacent sequences: A094006 A094007 A094008 * A094010 A094011 A094012
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 20 2004
|
|
|
EXTENSIONS
| 19154, 12144 and 21458 from Bobby R. Treat, Apr 21, 2004
a(30) - a(36) from Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 18 2010
|
| |
|
|
