A309953 Product of digits of (n written in base 3).

0, 1, 2, 0, 1, 2, 0, 2, 4, 0, 0, 0, 0, 1, 2, 0, 2, 4, 0, 0, 0, 0, 2, 4, 0, 4, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 2, 4, 0, 0, 0, 0, 2, 4, 0, 4, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 4, 0, 4, 8, 0, 0, 0, 0, 4, 8, 0, 8, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset

0,3

Links

Seiichi Manyama, Table of n, a(n) for n = 0..10000

Formula

G.f. A(x) satisfies: A(x) = x * (1 + 2*x) * (1 + A(x^3)).

Maple

a:= proc(n) a(n):= `if`(n<3, n, irem(n, 3, 'q')*a(q)) end:
seq(a(n), n=0..100);  # Alois P. Heinz, Mar 18 2024

Mathematica

Table[Times @@ IntegerDigits[n, 3], {n, 0, 100}]

Prog

(PARI) a(n) = {if(n, vecprod(digits(n, 3)), 0)} \\ Andrew Howroyd, Aug 24 2019
(Magma) [0] cat [&*Intseq(n, 3):n in [1..100]]; // Marius A. Burtea, Aug 25 2019

Crossrefs

Cf. A007089, A007954, A053735.

Sequence in context: A125921 A321457 A029299 * A281666 A049803 A331843

Adjacent sequences: A309950 A309951 A309952 * A309954 A309955 A309956

Keyword

nonn,base,look

Author

Ilya Gutkovskiy, Aug 24 2019

Status

approved