login
A269224
Factorial of the sum of digits of n in base 4.
1
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, 120, 720, 24, 120, 720, 5040, 2, 6, 24, 120, 6, 24, 120, 720, 24, 120, 720, 5040, 120, 720, 5040, 40320, 6, 24, 120, 720, 24, 120, 720, 5040, 120, 720, 5040, 40320, 720, 5040, 40320
OFFSET
0,3
COMMENTS
See sequences A093659, A269223 and A269221 for the base 2, base 3 and base 10 analog.
FORMULA
a(n) = A000142(A053737(n)).
MATHEMATICA
Table[Total[IntegerDigits[n, 4]]!, {n, 0, 62}] (* Michael De Vlieger, Mar 15 2016 *)
PROG
(PARI) A269224(n)=sumdigits(n, 4)! \\ sumdigits(., 4) requires version >= 2.7; see A053737 for a substitute.
(PARI) a(n) = vecsum(digits(n, 4))!; \\ Michel Marcus, Mar 15 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Mar 15 2016
STATUS
approved