login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Factorial of the sum of digits of n in base 4.
1

%I #10 Mar 16 2016 17:08:07

%S 1,1,2,6,1,2,6,24,2,6,24,120,6,24,120,720,1,2,6,24,2,6,24,120,6,24,

%T 120,720,24,120,720,5040,2,6,24,120,6,24,120,720,24,120,720,5040,120,

%U 720,5040,40320,6,24,120,720,24,120,720,5040,120,720,5040,40320,720,5040,40320

%N Factorial of the sum of digits of n in base 4.

%C See sequences A093659, A269223 and A269221 for the base 2, base 3 and base 10 analog.

%F a(n) = A000142(A053737(n)).

%t Table[Total[IntegerDigits[n, 4]]!, {n, 0, 62}] (* _Michael De Vlieger_, Mar 15 2016 *)

%o (PARI) A269224(n)=sumdigits(n,4)! \\ sumdigits(.,4) requires version >= 2.7; see A053737 for a substitute.

%o (PARI) a(n) = vecsum(digits(n,4))!; \\ _Michel Marcus_, Mar 15 2016

%Y Cf. A000142, A053737, A166350, A093659, A269223, A269221.

%K nonn,base

%O 0,3

%A _M. F. Hasler_, Mar 15 2016