A127115 - OEIS

%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