|
%I #2 Mar 31 2012 10:22:03
%S 1,1,2,6,30,170,1320,11660,116600,1304600,15657400,230212400,
%T 3443176000,56312146000,1211416624000,23016735654000,460356735300000,
%U 12067735663300000,265756631234600000,6601271140642200000
%N n! in base 8.
%t b = Table[IntegerDigits[n!, 8], {n, 1, 15}]; a = {}; Do[AppendTo[a, FromDigits[b[[x]]]], {x, 1, Length[b]}]; a (*Artur Jasinski*)
%Y Cf. A127109, A127110, A036603, A127112, A127113, A127114, A127115, A127116.
%K nonn
%O 0,3
%A _Artur Jasinski_, Jan 05 2007
|
