%I A056851
%S A056851 0,1,2,3,11,26,83,128,186,258,572,875,1494,2029,3859,4810,6497,9274,
%T A056851 18033,19243,24600,26073,30828,32528,34287,41930,48325,96475,103590,
%U A056851 118814,126936,205022,240742,260009,331334,379612,396656,405360,414186
%N A056851 Number of digits in n! is a cube.
%H A056851 <a href="Sindx_Fa.html#factorial">Index entries for sequences related 
               to factorial numbers</a>
%t A056851 Do[ If[ IntegerQ[ RealDigits[ n! ][[ 2 ]]^(1/3) ], Print[ n ]], {n, 0, 
               53100}]
%t A056851 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)] & ]
%Y A056851 Cf. A000142, A006488.
%Y A056851 Sequence in context: A041955 A157161 A041811 this_sequence A048412 A002981 
               A075641
%Y A056851 Adjacent sequences: A056848 A056849 A056850 this_sequence A056852 A056853 
               A056854
%K A056851 nonn,base
%O A056851 0,3
%A A056851 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 30 2000
%E A056851 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 25 2003