OFFSET
0,3
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