cp's OEIS Frontend

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.

Showing 1-3 of 3 results.

A309958 Product of digits of (n written in base 7).

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 0, 1, 2, 3, 4, 5, 6, 0, 2, 4, 6, 8, 10, 12, 0, 3, 6, 9, 12, 15, 18, 0, 4, 8, 12, 16, 20, 24, 0, 5, 10, 15, 20, 25, 30, 0, 6, 12, 18, 24, 30, 36, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 0, 2, 4, 6, 8, 10, 12, 0, 3, 6, 9, 12, 15, 18, 0, 4, 8, 12, 16, 20, 24, 0, 5, 10, 15, 20, 25, 30, 0, 6, 12, 18, 24, 30, 36, 0, 0, 0
Offset: 0

Views

Author

Ilya Gutkovskiy, Aug 24 2019

Keywords

Crossrefs

Product of digits of (n written in base k): A309953 (k = 3), A309954 (k = 4), A309956 (k = 5), A309957 (k = 6), this sequence (k = 7), A309959 (k = 8), A309788 (k = 9), A007954 (k = 10).

Programs

  • Magma
    [0] cat [&*Intseq(n,7):n in [1..100]]; // Marius A. Burtea, Aug 25 2019
    
  • Mathematica
    Table[Times @@ IntegerDigits[n, 7], {n, 0, 100}]
  • PARI
    a(n) = my(v=vecprod(digits(n, 7))); n>0 && return(v) \\ Felix Fröhlich, Sep 09 2019

Formula

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

A309959 Product of digits of (n written in base 8).

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 0, 1, 2, 3, 4, 5, 6, 7, 0, 2, 4, 6, 8, 10, 12, 14, 0, 3, 6, 9, 12, 15, 18, 21, 0, 4, 8, 12, 16, 20, 24, 28, 0, 5, 10, 15, 20, 25, 30, 35, 0, 6, 12, 18, 24, 30, 36, 42, 0, 7, 14, 21, 28, 35, 42, 49, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 0, 2, 4, 6, 8, 10, 12, 14, 0, 3, 6, 9, 12, 15, 18, 21, 0, 4, 8, 12, 16
Offset: 0

Views

Author

Ilya Gutkovskiy, Aug 24 2019

Keywords

Crossrefs

Product of digits of (n written in base k): A309953 (k = 3), A309954 (k = 4), A309956 (k = 5), A309957 (k = 6), A309958 (k = 7), this sequence (k = 8), A309788 (k = 9), A007954 (k = 10).

Programs

  • Magma
    [0] cat [&*Intseq(n,8):n in [1..100]]; // Marius A. Burtea, Aug 25 2019
  • Mathematica
    Table[Times @@ IntegerDigits[n, 8], {n, 0, 100}]

Formula

G.f. A(x) satisfies: A(x) = x * (1 + 2*x + 3*x^2 + 4*x^3 + 5*x^4 + 6*x^5 + 7*x^6) * (1 + A(x^8)).

A338882 Product of the nonzero digits of (n written in base 9).

Original entry on oeis.org

1, 1, 2, 3, 4, 5, 6, 7, 8, 1, 1, 2, 3, 4, 5, 6, 7, 8, 2, 2, 4, 6, 8, 10, 12, 14, 16, 3, 3, 6, 9, 12, 15, 18, 21, 24, 4, 4, 8, 12, 16, 20, 24, 28, 32, 5, 5, 10, 15, 20, 25, 30, 35, 40, 6, 6, 12, 18, 24, 30, 36, 42, 48, 7, 7, 14, 21, 28, 35, 42, 49, 56, 8, 8, 16, 24, 32, 40, 48, 56, 64
Offset: 0

Views

Author

Ilya Gutkovskiy, Nov 13 2020

Keywords

Crossrefs

Product of the nonzero digits of (n written in base k): A000012 (k = 2), A117592 (k = 3), A338854 (k = 4), A338803 (k = 5), A338863 (k = 6), A338880 (k = 7), A338881 (k = 8), this sequence (k = 9), A051801 (k = 10).

Programs

  • Mathematica
    Table[Times @@ DeleteCases[IntegerDigits[n, 9], 0], {n, 0, 80}]
    nmax = 80; A[] = 1; Do[A[x] = (1 + x + 2 x^2 + 3 x^3 + 4 x^4 + 5 x^5 + 6 x^6 + 7 x^7 + 8 x^8) A[x^9] + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
    Table[Times@@(IntegerDigits[n,9]/.(0->1)),{n,0,80}] (* Harvey P. Dale, Oct 08 2021 *)
  • PARI
    a(n) = vecprod(select(x->x, digits(n, 9))); \\ Michel Marcus, Nov 14 2020

Formula

G.f. A(x) satisfies: A(x) = (1 + x + 2*x^2 + 3*x^3 + 4*x^4 + 5*x^5 + 6*x^6 + 7*x^7 + 8*x^8) * A(x^9).
Showing 1-3 of 3 results.