login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Number of nonzero entries in row n of the base-3 generalized Pascal triangle P_3.
3

%I #29 Apr 12 2019 13:48:51

%S 1,2,2,3,3,4,3,4,3,4,5,6,5,4,6,7,7,6,4,6,5,7,6,7,5,6,4,5,7,8,8,7,10,

%T 10,11,9,7,8,10,7,5,8,11,10,9,10,13,12,13,10,12,11,11,8,5,8,7,10,9,11,

%U 8,10,7,10,12,13,11,8,11,13,12,10,7,10,8,11,9,10

%N Number of nonzero entries in row n of the base-3 generalized Pascal triangle P_3.

%C It would be nice to have an entry for the triangle P_3 itself (compare A282714 which gives the base-2 triangle P_2).

%H Lars Blomberg, <a href="/A282715/b282715.txt">Table of n, a(n) for n = 0..10000</a>

%H Julien Leroy, Michel Rigo, Manon Stipulanti, <a href="http://dx.doi.org/10.1016/j.disc.2017.01.003">Counting the number of non-zero coefficients in rows of generalized Pascal triangles</a>, Discrete Mathematics 340 (2017), 862-881, Section 7.

%H Julien Leroy, Michel Rigo, Manon Stipulanti, <a href="https://arxiv.org/abs/1705.10065">Counting Subwords Occurrences in Base-b Expansions</a>, arXiv:1705.10065 [math.CO], 2017.

%H Julien Leroy, Michel Rigo, Manon Stipulanti, <a href="http://math.colgate.edu/~integers/sjs13/sjs13.Abstract.html">Counting Subwords Occurrences in Base-b Expansions</a>, Integers, Electronic Journal of Combinatorial Number Theory 18A (2018), #A13.

%H Manon Stipulanti, <a href="https://arxiv.org/abs/1801.03287">Convergence of Pascal-Like Triangles in Parry-Bertrand Numeration Systems</a>, arXiv:1801.03287 [math.CO], 2018.

%F Leroy et al. (2017) state some conjectured recurrences.

%e The number of nonzero entries in the n-th row of the following triangle:

%e 1

%e 1 1

%e 1 0 1

%e 1 1 0 1

%e 1 2 0 0 1

%e 1 1 1 0 0 1

%e 1 0 1 0 0 0 1

%e 1 1 1 0 0 0 0 1

%e 1 0 2 0 0 0 0 0 1

%e 1 1 0 2 0 0 0 0 0 1

%e 1 2 0 1 1 0 0 0 0 0 1

%e 1 1 1 1 0 1 0 0 0 0 0 1

%e 1 2 0 2 1 0 0 0 0 0 0 0 1

%e 1 3 0 0 3 0 0 0 0 0 0 0 0 1

%p # reuses code snippets of A282714

%p A282715 := proc(n)

%p add(min(P(n,k,3),1),k=0..n) ;

%p end proc:

%p seq(A282715(n),n=0..100) ; # _R. J. Mathar_, Mar 03 2017

%t row[n_] := Module[{bb, ss}, bb = Table[IntegerDigits[k, 3], {k, 0, n}]; ss = Subsets[Last[bb]]; Prepend[Count[ss, #]& /@ bb // Rest, 1]];

%t a[n_] := Count[row[n], _?Positive];

%t Table[a[n], {n, 0, 100}] (* _Jean-François Alcover_, Dec 28 2017 *)

%Y Cf. A007306, A282714.

%K nonn

%O 0,2

%A _N. J. A. Sloane_, Mar 02 2017

%E More terms from _Lars Blomberg_, Mar 03 2017