|
%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
|
