%I #12 Mar 16 2016 17:09:06
%S 1,1,2,1,2,6,2,6,24,1,2,6,2,6,24,6,24,120,2,6,24,6,24,120,24,120,720,
%T 1,2,6,2,6,24,6,24,120,2,6,24,6,24,120,24,120,720,6,24,120,24,120,720,
%U 120,720,5040,2,6,24,6,24,120,24,120,720,6,24,120,24,120,720,120,720
%N Factorial of the sum of digits of n in base 3.
%C Sequence A093659 is the binary (base 2) and sequence A269221 is the decimal (base 10) version.
%F a(n) = A000142(A053735(n)).
%t Table[Total[IntegerDigits[n, 3]]!, {n, 0, 70}] (* _Michael De Vlieger_, Mar 15 2016 *)
%o (PARI) A269223(n)=sumdigits(n,3)! \\ sumdigits(.,3) requires version > 2.7.1; see A053735 for a substitute.
%o (PARI) a(n) = vecsum(digits(n,3))!; \\ _Michel Marcus_, Mar 15 2016
%Y Cf. A000142, A053735, A166350, A093659.
%K nonn,base
%O 0,3
%A _M. F. Hasler_, Mar 15 2016