|
| |
|
|
A056851
|
|
Number of digits in n! is a cube.
|
|
1
| |
|
|
0, 1, 2, 3, 11, 26, 83, 128, 186, 258, 572, 875, 1494, 2029, 3859, 4810, 6497, 9274, 18033, 19243, 24600, 26073, 30828, 32528, 34287, 41930, 48325, 96475, 103590, 118814, 126936, 205022, 240742, 260009, 331334, 379612, 396656, 405360, 414186
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
LINKS
| Index entries for sequences related to factorial numbers
|
|
|
MATHEMATICA
| Do[ If[ IntegerQ[ RealDigits[ n! ][[ 2 ]]^(1/3) ], Print[ n ]], {n, 0, 53100}]
LogBase10Stirling[n_] := Floor[Log[10, 2 Pi n]/2 + n*Log[10, n/E] + Log[10, 1 + 1/(12n) + 1/(288n^2) - 139/(51840n^3) - 571/(2488320n^4) + 163879/(209018880n^5)]]; Select[ Range[ 500000], IntegerQ[ (LogBase10Stirling[ # ] + 1)^(1/3)] & ]
|
|
|
CROSSREFS
| Cf. A000142, A006488.
Sequence in context: A041955 A157161 A041811 * A048412 A002981 A075641
Adjacent sequences: A056848 A056849 A056850 * A056852 A056853 A056854
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 30 2000
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 25 2003
|
| |
|
|
