A269223 Factorial of the sum of digits of n in base 3.

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, 1, 2, 6, 2, 6, 24, 6, 24, 120, 2, 6, 24, 6, 24, 120, 24, 120, 720, 6, 24, 120, 24, 120, 720, 120, 720, 5040, 2, 6, 24, 6, 24, 120, 24, 120, 720, 6, 24, 120, 24, 120, 720, 120, 720

Offset

0,3

Comments

Sequence A093659 is the binary (base 2) and sequence A269221 is the decimal (base 10) version.

Links

Table of n, a(n) for n=0..70.

Formula

a(n) = A000142(A053735(n)).

Mathematica

Table[Total[IntegerDigits[n, 3]]!, {n, 0, 70}] (* Michael De Vlieger, Mar 15 2016 *)

Prog

(PARI) A269223(n)=sumdigits(n, 3)! \\ sumdigits(., 3) requires version > 2.7.1; see A053735 for a substitute.
(PARI) a(n) = vecsum(digits(n, 3))!; \\ Michel Marcus, Mar 15 2016

Crossrefs

Cf. A000142, A053735, A166350, A093659.

Sequence in context: A053448 A060550 A099206 * A121341 A241737 A174959

Adjacent sequences: A269220 A269221 A269222 * A269224 A269225 A269226

Keyword

nonn,base

Author

M. F. Hasler, Mar 15 2016

Status

approved