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 A269223 #12 Mar 16 2016 17:09:06 %S A269223 1,1,2,1,2,6,2,6,24,1,2,6,2,6,24,6,24,120,2,6,24,6,24,120,24,120,720, %T A269223 1,2,6,2,6,24,6,24,120,2,6,24,6,24,120,24,120,720,6,24,120,24,120,720, %U A269223 120,720,5040,2,6,24,6,24,120,24,120,720,6,24,120,24,120,720,120,720 %N A269223 Factorial of the sum of digits of n in base 3. %C A269223 Sequence A093659 is the binary (base 2) and sequence A269221 is the decimal (base 10) version. %F A269223 a(n) = A000142(A053735(n)). %t A269223 Table[Total[IntegerDigits[n, 3]]!, {n, 0, 70}] (* _Michael De Vlieger_, Mar 15 2016 *) %o A269223 (PARI) A269223(n)=sumdigits(n,3)! \\ sumdigits(.,3) requires version > 2.7.1; see A053735 for a substitute. %o A269223 (PARI) a(n) = vecsum(digits(n,3))!; \\ _Michel Marcus_, Mar 15 2016 %Y A269223 Cf. A000142, A053735, A166350, A093659. %K A269223 nonn,base %O A269223 0,3 %A A269223 _M. F. Hasler_, Mar 15 2016