%I #14 Aug 25 2022 16:30:09
%S 1,1,2,20,220,11110,222200,20220200,2001022100,200102210000,
%T 20211100210000,2210002222120000,1020101022210200000,
%U 121001222020102200000,22100000121100001100000,11122000100002000202000000,2202002012101012102212000000,1201122101101102102110111000000
%N n! in base 3.
%t Table[FromDigits[IntegerDigits[n!,3]],{n,0,17}] (* _Stefano Spezia_, Aug 25 2022 *)
%o (PARI) a(n) = fromdigits(digits(n!, 3), 10); \\ _Michel Marcus_, Sep 04 2021
%Y Cf. A000142, A007089.
%Y Cf. A136754, A136690, A125552, A213857.
%K nonn
%O 0,3
%A _Artur Jasinski_, Jan 05 2007
|