|
Search: id:A061055
|
|
|
| A061055 |
|
Factorial splitting: write n! = x*y with x<y and x maximal; sequence gives value of x. |
|
+0
7
|
|
| 2, 4, 10, 24, 70, 192, 576, 1890, 6300, 21600, 78848, 294840, 1143072, 4572288, 18849600, 79968000, 348566400, 1559376000, 7147140000, 33522128640, 160758097500, 787652812800, 3938264064000, 20080974513600, 104348440350000
(list; graph; listen)
|
|
|
OFFSET
|
3,1
|
|
|
COMMENT
|
Is this the same as A060776? [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 02 2008]
a(27)=104348440350000, a(28)=552160113120000. [From Zak Seidov (zakseidov(AT)yahoo.com), Jul 07 2009]
|
|
EXAMPLE
|
6! = 24*30, with difference of 6.
|
|
MATHEMATICA
|
Do[ With[ {k = Floor[ Sqrt[ x! ] ] - Do[ If[ Mod[ x!, Floor[ Sqrt[ x! ] ] - n ] == 0, Return[ n ] ], {n, 0, 10000000} ]}, Print[ {x, "! =", k, x!/k, x!/k - k} ] ], {x, 3, 22} ]
|
|
CROSSREFS
|
Cf. A061056-A061060, A061030-A061033.
Sequence in context: A029893 A148089 A060776 this_sequence A148090 A148091 A123420
Adjacent sequences: A061052 A061053 A061054 this_sequence A061056 A061057 A061058
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Ed Pegg Jr (ed(AT)mathpuzzle.com), May 28 2001
|
|
EXTENSIONS
|
More terms from Dean Hickerson (dean.hickerson(AT)yahoo.com), Jun 13, 2001
More terms from Zak Seidov (zakseidov(AT)yahoo.com), Jul 07 2009
|
|
|
Search completed in 0.002 seconds
|
