|
Search: id:A093826
|
|
|
| A093826 |
|
In binary representation: least number, k, which occurs n times in its factorial. |
|
+0
2
|
|
| 5, 1, 16, 12, 49, 58, 60, 110, 209, 117, 240, 430, 255, 1423, 921, 980, 511, 1847, 3737, 3692, 3998, 7265, 15267, 15651, 15722
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
EXAMPLE
|
12!_b = 11100100011001111110000000000 and 12_b = 1100 and the later string appears thrice in the former string.
|
|
MATHEMATICA
|
f[n_] := ToString[ FromDigits[ IntegerDigits[n, 2]]]; g[n_] := Length[ StringPosition[ f[n! ], f[n]]]; a = Table[0, {30}]; Do[ b = g[n]; If[a[[b + 1]] == 0, a[[b + 1]] = n], {n, 29000}]; a
|
|
CROSSREFS
|
Cf. A093685.
Sequence in context: A087727 A039807 A019429 this_sequence A066787 A058352 A121755
Adjacent sequences: A093823 A093824 A093825 this_sequence A093827 A093828 A093829
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com) and Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Apr 16 2004
|
|
|
Search completed in 0.002 seconds
|
