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.

A276798 Partial sums of A276791.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 12, 12, 12, 12, 13, 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15
Offset: 0

Views

Author

N. J. A. Sloane, Oct 28 2016

Keywords

Comments

a(n+1) - 1 = z_C(n), where z_C(n) is the number of C numbers A276798 not exceeding n, for n >= 0, and z_C(-1) = 0. - Wolfdieter Lang, Dec 05 2018
Conjecture: 3*n - A140101(n) = a(n-1). - N. J. A. Sloane, Oct 26 2016 (added Mar 21 2019). This is true - see the Dekking et al. paper. - N. J. A. Sloane, Jul 22 2019

Crossrefs

A276793(n) + A276794(n) + A276791(n) = 1;
A276796(n) + A276797(n) + A276798(n) = n + 1.

Programs

  • Maple
    M:=12;
    S[1]:=`0`; S[2]:=`01`; S[3]:=`0102`;
    for n from 4 to M do S[n]:=cat(S[n-1], S[n-2], S[n-3]); od:
    t0:=S[M]: # has 927 terms of tribonacci ternary word A080843
    # get numbers of 0's, 1's, 2's
    N0:=[]: N1:=[]: N2:=[]: c0:=0: c1:=0: c2:=0:
    L:=length(t0);
    for i from 1 to L do
    js := substring(t0, i..i);
    j:=convert(js,decimal,10);
    if j=0 then c0:=c0+1; elif j=1 then c1:=c1+1; else c2:=c2+1; fi;
    N0:=[op(N0),c0]; N1:=[op(N1),c1]; N2:=[op(N2),c2];
    od:
    N0; N1; N2; # prints A276796, A276797, A276798 (except A276798 is off by 1 because it does not count the initial 0 in A003146). # N. J. A. Sloane, Jun 08 2018

Formula

a(n) = Sum_{k=0..n} A276791(k), for n >= 0.
a(n) = n + 1 - (A276796(n) + A276797(n)).
a(n) = 2*n + 1 - B(n), where B(n) = A278039(n), n >= 0. For a proof see the comment on z_C and Proposition 7, eq. 43, of the W. Lang link given in A080843. - Wolfdieter Lang, Dec 05 2018