login
n! in base 9.
4

%I #2 Mar 31 2012 10:22:03

%S 1,1,2,6,26,143,880,6820,61270,612700,6740700,83088500,1211283600,

%T 17058212600,270017301300,4560302022000,82065335385000,

%U 1648341372414000,34076827548280000,725735500635080000,17178403115182870000

%N n! in base 9.

%t b = Table[IntegerDigits[n!, 9], {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