Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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