This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A269224 #10 Mar 16 2016 17:08:07 %S A269224 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 A269224 120,720,24,120,720,5040,2,6,24,120,6,24,120,720,24,120,720,5040,120, %U A269224 720,5040,40320,6,24,120,720,24,120,720,5040,120,720,5040,40320,720,5040,40320 %N A269224 Factorial of the sum of digits of n in base 4. %C A269224 See sequences A093659, A269223 and A269221 for the base 2, base 3 and base 10 analog. %F A269224 a(n) = A000142(A053737(n)). %t A269224 Table[Total[IntegerDigits[n, 4]]!, {n, 0, 62}] (* _Michael De Vlieger_, Mar 15 2016 *) %o A269224 (PARI) A269224(n)=sumdigits(n,4)! \\ sumdigits(.,4) requires version >= 2.7; see A053737 for a substitute. %o A269224 (PARI) a(n) = vecsum(digits(n,4))!; \\ _Michel Marcus_, Mar 15 2016 %Y A269224 Cf. A000142, A053737, A166350, A093659, A269223, A269221. %K A269224 nonn,base %O A269224 0,3 %A A269224 _M. F. Hasler_, Mar 15 2016