login
Factorial of the sum of digits of n in base 3.
2

%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