|
Search: id:A094009
|
|
|
| A094009 |
|
Least number k such that k! in binary representation has n consecutive ones. |
|
+0
2
|
|
| 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
(list; graph; listen)
|
|
|
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 this_sequence A088514 A066677 A061026
Adjacent sequences: A094006 A094007 A094008 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
