|
| |
|
|
A093826
|
|
In binary representation: least number, k, which occurs n times in its factorial.
|
|
1
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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: A157397 A157405 A019429 * A144699 A066787 A058352
Adjacent sequences: A093823 A093824 A093825 * 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
|
| |
|
|
