A069905 -id:A069905 - cp's OEIS frontend

A211540 Number of ordered triples (w,x,y) with all terms in {1..n} and 2w = 3x + 4y.

0, 0, 0, 0, 0, 1, 1, 2, 3, 4, 5, 7, 8, 10, 12, 14, 16, 19, 21, 24, 27, 30, 33, 37, 40, 44, 48, 52, 56, 61, 65, 70, 75, 80, 85, 91, 96, 102, 108, 114, 120, 127, 133, 140, 147, 154, 161, 169, 176, 184, 192, 200, 208, 217, 225, 234, 243, 252, 261, 271, 280, 290

Offset: 0

Clark Kimberling, Apr 15 2012

For a guide to related sequences, see A211422.
Also the number of partitions of n+1 into three parts, where each part > 1. - Peter Woodward, May 25 2015
a(n) is also equal to the number of partitions of n+4 into three distinct parts, where each part > 1. - Giovanni Resta, May 26 2015
Number of different distributions of n+1 identical balls in 3 boxes as x,y,z where 0 < x < y < z. - Ece Uslu and Esin Becenen, Dec 31 2015
After the first three terms, partial sums of A008615. - Robert Israel, Dec 31 2015
For n >= 2, also the number of partitions of n - 2 into 3 parts. The Heinz numbers of these partitions are given by A014612. - Gus Wiseman, Oct 11 2020

			a(5) = a(6) = 1 with only one ordered triple (5,2,1). - _Michael Somos_, Feb 02 2015
a(11) = 5 Number of different distributions of 11 identical balls in 3 boxes as x,y and z where 0 < x < y < z. - _Ece Uslu_, Esin Becenen, Dec 31 2015
a(1) = a(2) = a(3) = a(4) = a(5) = 0, since with fewer than 6 identical balls there is no such distribution with 3 boxes that holds for 0 < x < y < z. - _Ece Uslu_, Esin Becenen, Dec 31 2015
G.f.: x^5 + x^6 + 2*x^7 + 3*x^8 + 4*x^9 + 5*x^10 + 7*x^11 + 8*x^12 + ...
From _Gus Wiseman_, Oct 11 2020: (Start)
The a(5) = 1 through a(15) = 14 partitions of n + 1 into three parts > 1 [Woodward] are the following (A = 10, B = 11, C = 12). The ordered version is A000217(n - 4) and the Heinz numbers are A046316.
  222  322  332  333  433  443  444  544  554  555  655
            422  432  442  533  543  553  644  654  664
                 522  532  542  552  643  653  663  754
                      622  632  633  652  662  744  763
                           722  642  733  743  753  772
                                732  742  752  762  844
                                822  832  833  843  853
                                     922  842  852  862
                                          932  933  943
                                          A22  942  952
                                               A32  A33
                                               B22  A42
                                                    B32
                                                    C22
The a(5) = 1 through a(15) = 14 partitions of n + 4 into three distinct parts > 1 [Resta] are the following (A = 10, B = 11, C = 12, D = 13, E = 14). The ordered version is A211540*6 and the Heinz numbers are A046389.
  432  532  542  543  643  653  654  754  764  765  865
            632  642  652  743  753  763  854  864  874
                 732  742  752  762  853  863  873  964
                      832  842  843  862  872  954  973
                           932  852  943  953  963  982
                                942  952  962  972  A54
                                A32  A42  A43  A53  A63
                                     B32  A52  A62  A72
                                          B42  B43  B53
                                          C32  B52  B62
                                               C42  C43
                                               D32  C52
                                                    D42
                                                    E32
The a(5) = 1 through a(15) = 14 partitions of n + 1 into three distinct parts [Uslu and Becenen] are the following (A = 10, B = 11, C = 12, D = 13). The ordered version is A211540(n)*6 and the Heinz numbers are A007304.
  321  421  431  432  532  542  543  643  653  654  754
            521  531  541  632  642  652  743  753  763
                 621  631  641  651  742  752  762  853
                      721  731  732  751  761  843  862
                           821  741  832  842  852  871
                                831  841  851  861  943
                                921  931  932  942  952
                                     A21  941  951  961
                                          A31  A32  A42
                                          B21  A41  A51
                                               B31  B32
                                               C21  B41
                                                    C31
                                                    D21
(End)

Robert Israel, Table of n, a(n) for n = 0..10000
Clark Kimberling, A Combinatorial Classification of Triangle Centers on the Line at Infinity, J. Int. Seq., Vol. 22 (2019), Article 19.5.4.
Ece Uslu and Esin Becenen, Identical Object Distributions.
Index entries for linear recurrences with constant coefficients, signature (1,1,0,-1,-1,1).

Cf. A001399, A069905, A211422.
All of the following pertain to 3-part strict partitions.
- A000009 counts these partitions of any length, with non-strict version A000041.
- A007304 gives the Heinz numbers, with non-strict version A014612.
- A101271 counts the relatively prime case, with non-strict version A023023.
- A220377 counts the pairwise coprime case, with non-strict version A307719.
- A337605 counts the pairwise non-coprime case, with non-strict version A337599.
Cf. A000217, A001840, A156040, A284825, A337453, A337483, A337484, A337563.

I:=[0,0,0,0,0,1]; [n le 6 select I[n] else Self(n-1)+Self(n-2)-Self(n-4)-Self(n-5)+Self(n-6): n in [1..70]]; // Vincenzo Librandi, Dec 31 2015

f:= gfun:-rectoproc({a(n) = a(n-1)+a(n-2)-a(n-4)-a(n-5)+a(n-6),seq(a(i)=0,i=0..4),a(5)=1},a(n),remember):
seq(f(i),i=0..100); # Robert Israel, Dec 31 2015

t[n_] := t[n] = Flatten[Table[-2 w + 3 x + 4 y, {w, n}, {x, n}, {y, n}]]
c[n_] := Count[t[n], 0]
t = Table[c[n], {n, 0, 80}]  (* A211540 *)
FindLinearRecurrence[t]
LinearRecurrence[{1, 1, 0, -1, -1, 1}, {0, 0, 0, 0, 0, 1}, 70] (* Vincenzo Librandi, Dec 31 2015 *)
Table[Length[Select[IntegerPartitions[n+1,{3}],UnsameQ@@#&]],{n,0,30}] (* Gus Wiseman, Oct 05 2020 *)

{a(n) = round( (n-2)^2 / 12 )}; / * Michael Somos, Feb 02 2015 */

concat(vector(5), Vec(x^5/(1-x-x^2+x^4+x^5-x^6) + O(x^100))) \\ Altug Alkan, Jan 10 2016

a(n) = a(n-1) + a(n-2) - a(n-4) - a(n-5) + a(n-6).
a(n) = A069905(n-2) = A001399(n-5) for n >= 5. - Alois P. Heinz, Nov 03 2012
a(n) = 3*k^2-6*k+3 (for n = 6*k-3), 3*k^2-5*k+2 (for n = 6*k-2), 3*k^2-4*k+1 (for n = 6*k-1), 3*k^2-3*k+1 (for n = 6*k), 3*k^2-2*k (for n = 6*k+1), 3*k^2-k (for n = 6*k+2). - Ece Uslu, Esin Becenen, Dec 31 2015
a(n) = A004526(n-2) + a(n-2) for n > 2. - Ece Uslu, Esin Becenen, Dec 31 2015
G.f.: x^5/(1 - x - x^2 + x^4 + x^5 - x^6). - Robert Israel, Dec 31 2015
a(n) = Sum_{k=1..floor(n/3)} floor((n-k)/2)-k. - Wesley Ivan Hurt, Apr 27 2019
From Gus Wiseman, Oct 11 2020: (Start)
a(n+2) = A069905(n) = A001399(n-3) counts 3-part partitions.
a(n-1) = A069905(n-3) = A001399(n-6) counts 3-part strict partitions.
a(n-1) = A069905(n-3) = A001399(n-6) counts 3-part partitions with no 1's.
a(n-4) = A069905(n-6) = A001399(n-9) counts 3-part strict partitions with no 1's.
A000217(n-2) counts 3-part compositions.
a(n-1)*6 = A069905(n-3)*6 = A001399(n-6)*6 counts 3-part strict compositions.
A000217(n-5) counts 3-part compositions with no 1's.
a(n-4)*6 = A069905(n-6)*6 = A001399(n-9)*6 counts 3-part strict compositions with no 1's.
(End)

A140106 Number of noncongruent diagonals in a regular n-gon.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13, 14, 14, 15, 15, 16, 16, 17, 17, 18, 18, 19, 19, 20, 20, 21, 21, 22, 22, 23, 23, 24, 24, 25, 25, 26, 26, 27, 27, 28, 28, 29, 29, 30, 30, 31, 31, 32, 32, 33, 33, 34, 34, 35, 35, 36, 36, 37

Offset: 1

Andrew McFarland, Jun 03 2008

Number of double-stars (diameter 3 trees) with n nodes. For n >= 3, number of partitions of n-2 into two parts. - Washington Bomfim, Feb 12 2011
Number of roots of the n-th Bernoulli polynomial in the left half-plane. - Michel Lagneau, Nov 08 2012
From Gus Wiseman, Oct 17 2020: (Start)
Also the number of 3-part non-strict integer partitions of n - 1. The Heinz numbers of these partitions are given by A285508. The version for partitions of any length is A047967, with Heinz numbers A013929. The a(4) = 1 through a(15) = 6 partitions are (A = 10, B = 11, C = 12):
  111  211  221  222  322  332  333  433  443  444  544  554
            311  411  331  422  441  442  533  552  553  644
                      511  611  522  622  551  633  661  662
                                711  811  722  822  733  833
                                          911  A11  922  A22
                                                    B11  C11
(End)

			The square (n=4) has two congruent diagonals; so a(4)=1. The regular pentagon also has congruent diagonals; so a(5)=1. Among all the diagonals in a regular hexagon, there are two noncongruent ones; hence a(6)=2, etc.

G. C. Greubel, Table of n, a(n) for n = 1..5000
Washington Bomfim, Double-star corresponding to the partition [3,7]
Index entries for linear recurrences with constant coefficients, signature (1,1,-1).
Index entries for sequences related to trees

Cf. A000554, A007304, A007997, A013929, A022998.
Cf. A047967, A129194, A235451, A285508, A321773.
A001399(n-3) = A069905(n) = A211540(n+2) counts 3-part partitions.
Essentially the same as A004526.

A140106:= func< n | n eq 1 select 0 else Floor((n-2)/2) >;
[A140106(n): n in [1..80]]; // G. C. Greubel, Feb 10 2023

with(numtheory): for n from 1 to 80 do:it:=0:
y:=[fsolve(bernoulli(n,x) , x, complex)] : for m from 1 to nops(y) do : if Re(y[m])<0 then it:=it+1:else fi:od: printf(`%d, `,it):od:

a[1]=0; a[n_?OddQ] := (n-3)/2; a[n_] := n/2-1; Array[a, 100] (* Jean-François Alcover, Nov 17 2015 *)

a(n)=if(n>1,n\2-1,0) \\ Charles R Greathouse IV, Oct 16 2015

def A140106(n): return n-2>>1 if n>1 else 0 # Chai Wah Wu, Sep 18 2023

def A140106(n): return 0 if (n==1) else (n-2)//2
[A140106(n) for n in range(1,81)] # G. C. Greubel, Feb 10 2023

a(n) = floor((n-2)/2), for n > 1, otherwise 0. - Washington Bomfim, Feb 12 2011
G.f.: x^4/(1-x-x^2+x^3). - Colin Barker, Jan 31 2012
a(n) = floor(A129194(n-1)/A022998(n)), for n > 1. - Paul Curtz, Jul 23 2017
a(n) = A001399(n-3) - A001399(n-6). Compare to A007997(n) = A001399(n-3) + A001399(n-6). - Gus Wiseman, Oct 17 2020

More terms from Joseph Myers, Sep 05 2009

A008642 Quarter-squares repeated.

Original entry on oeis.org

1, 1, 2, 2, 4, 4, 6, 6, 9, 9, 12, 12, 16, 16, 20, 20, 25, 25, 30, 30, 36, 36, 42, 42, 49, 49, 56, 56, 64, 64, 72, 72, 81, 81, 90, 90, 100, 100, 110, 110, 121, 121, 132, 132, 144, 144, 156, 156, 169, 169, 182, 182, 196, 196, 210, 210, 225, 225

Offset: 0

N. J. A. Sloane

The area of the largest rectangle whose perimeter is not greater than n. - Dmitry Kamenetsky, Aug 30 2006
Also number of partitions of n into parts 1, 2 or 4. - Reinhard Zumkeller, Aug 12 2011
Let us consider a rectangle composed of unit squares. Then count how many squares are necessary to surround this rectangle by a layer whose width is 1 unit. And repeat this surrounding ad libitum. This sequence, prepended by 4 zeros and with offset 0, gives the number of rectangles that need 2*n unit squares in one of their surrounding layers. - Michel Marcus, Sep 19 2015
a(n) is the number of nonnegative integer solutions (x,y,z) for n-2 <= 2*x + 3*y + 4*z <= n. For example, the two solutions for 1 <= 2*x + 3*y + 4*z <= 3 are (1,0,0) and (0,1,0). - Ran Pan, Oct 07 2015
Conjecture: Consider the number of compositions of n>=4*k+8 into odd parts, where the order of the parts 1,3,..,2k+1 does not count. Then, as k approaches infinity, a(n-4*k-8) is equal to the number of these restricted compositions minus A000009(n), the number of strict partitions of n. - Gregory L. Simay, Aug 12 2016
From Gus Wiseman, May 17 2019: (Start)
Also the number of length-3 integer partitions of n + 4 whose largest part is greater than the sum of the other two. These are unordered triples that cannot be the sides of a triangle. For example, the a(1) = 1 through a(10) = 9 partitions are (A = 10, B = 11, C = 12):
  (311)  (411)  (421)  (521)  (522)  (622)  (632)  (732)   (733)   (833)
                (511)  (611)  (531)  (631)  (641)  (741)   (742)   (842)
                              (621)  (721)  (722)  (822)   (751)   (851)
                              (711)  (811)  (731)  (831)   (832)   (932)
                                            (821)  (921)   (841)   (941)
                                            (911)  (A11)   (922)   (A22)
                                                           (931)   (A31)
                                                           (A21)   (B21)
                                                           (B11)   (C11)
(End)
This sequence, prepended by four 0's and with offset 0, is the number of partitions of n into four parts whose smallest two parts are equal. - Wesley Ivan Hurt, Jan 05 2021
This sequence, prepended by four 0's and with offset 0, is the number of incongruent obtuse triangles formed from the vertices of a regular n-gon. - Frank M Jackson, Nov 27 2022

D. J. Benson, Polynomial Invariants of Finite Groups, Cambridge, 1993, p. 105.
L. Comtet, Advanced Combinatorics, Reidel, 1974, p. 112, D(n).

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Sara C. Billey, Matjaž Konvalinka, and Joshua P. Swanson, Asymptotic normality of the major index on standard tableaux, arXiv:1905.00975 [math.CO], 2019.
Ran Pan, Exercise U, Project P.
Harold N. Ward, A Normal Graph Algebra, arXiv:2201.00389 [math.CO], 2022.
Index entries for linear recurrences with constant coefficients, signature (1,1,-1,1,-1,-1,1).

Cf. A002620.

Cf. A001399, A005044 (triangles without self-intersections), A069905, A124278, A266223, A325686, A325689, A325690, A325691, A325695.

[Floor(((n+1)*((-1)^n+n+6)+9)/16): n in [0..70]]; // Vincenzo Librandi, Apr 02 2014

seq((7/8+(-1)^k/8 + k + k^2/4)$2, k=0..100); # Robert Israel, Oct 08 2015

CoefficientList[Series[1/((1-x)(1-x^2)(1-x^4)), {x, 0, 70}], x] (* Vincenzo Librandi, Apr 02 2014 *)
LinearRecurrence[{1,1,-1,1,-1,-1,1},{1,1,2,2,4,4,6}, 70] (* Harvey P. Dale, Jun 03 2015 *)
Table[Floor[((n + 1) ((-1)^n + n + 6) + 9)/16], {n, 0, 70}] (* Michael De Vlieger, Aug 14 2016 *)

Vec(1/((1-x)*(1-x^2)*(1-x^4)) + O(x^70)) \\ Michel Marcus, Mar 31 2014

vector(70, n, n--; floor(((n+1)*((-1)^n+n+6)+9)/16)) \\ Altug Alkan, Oct 08 2015

[floor(floor(n/2+2)^2/2)/2 for n in (0..70)] # Bruno Berselli, Mar 03 2016

G.f.: 1/((1-x)*(1-x^2)*(1-x^4)).
a(n) = (2*n^2 + 14*n + 21 + (2*n + 7)*(-1)^n)/32 + ((1 + (-1)^n)/2 - (1 - (-1)^n)*i/2)*i^n/8, with i = sqrt(-1).
a(n) = floor(((n+1)*((-1)^n+n+6)+9)/16). - Tani Akinari, Jun 16 2013
a(n) = Sum_{i=1..floor((n+6)/2)} floor((n+6-2*i-(n mod 2))/4). - Wesley Ivan Hurt, Mar 31 2014
a(0)=1, a(1)=1, a(2)=2, a(3)=2, a(4)=4, a(5)=4, a(6)=6; for n>6, a(n) = a(n-1) + a(n-2) - a(n-3) + a(n-4) - a(n-5) - a(n-6) + a(n-7). - Harvey P. Dale, Jun 03 2015
a(n) = floor(floor(n/2+2)^2/4) = floor(floor(n/2+2)^2/2)/2. - Bruno Berselli, Mar 03 2016
E.g.f.: ((14 + 7*x + x^2)*cosh(x) + 2*(cos(x) + sin(x)) + (7 + 9*x + x^2)*sinh(x))/16. - Stefano Spezia, Mar 05 2023
a(n) = floor((n + 4)/4)*floor((n + 6)/4). - Ridouane Oudra, Apr 01 2023

A337563 Number of pairwise coprime unordered triples of positive integers > 1 summing to n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 1, 4, 0, 7, 1, 7, 3, 9, 2, 15, 3, 13, 5, 17, 4, 29, 5, 20, 8, 28, 8, 42, 8, 31, 14, 42, 10, 59, 12, 45, 21, 52, 14, 77, 17, 68, 26, 69, 19, 101, 26, 84, 34, 86, 25, 138, 28, 95, 43, 111, 36, 161, 35, 118, 52, 151

Offset: 0

Gus Wiseman, Sep 21 2020

nonn

Such partitions are necessarily strict.

The Heinz numbers of these partitions are the intersection of A005408 (no 1's), A014612 (triples), and A302696 (coprime).

			The a(10) = 1 through a(24) = 15 triples (empty columns indicated by dots, A..J = 10..19):
  532  .  543  .  743  753  754  .  765  B53  875  975  985  B75  987
          732     752       853     873       974  B73  B65  D73  B76
                            952     954       A73  D53  B74       B85
                            B32     972       B54       B83       B94
                                    B43       B72       B92       BA3
                                    B52       D43       D54       C75
                                    D32       D52       D72       D65
                                                        E53       D74
                                                        H32       D83
                                                                  D92
                                                                  F72
                                                                  G53
                                                                  H43
                                                                  H52
                                                                  J32

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..10000

A055684 is the version for pairs.
A220377 allows 1's, with non-strict version A307719.
A337485 counts these partitions of any length.
A337563*6 is the ordered version.
A001399(n - 3) = A069905(n) = A211540(n + 2) counts 3-part partitions.
A002865 counts partitions with no 1's, with strict case A025147.
A007359 counts pairwise coprime partitions with no 1's.
A078374 counts relatively prime strict partitions.
A200976 and A328673 count pairwise non-coprime partitions.
A302696 ranks pairwise coprime partitions.
A302698 counts relatively prime partitions with no 1's.
A305713 counts pairwise coprime strict partitions.
A327516 counts pairwise coprime partitions.
A337452 counts relatively prime strict partitions with no 1's.
Cf. A007304, A082024, A101268, A284825, A332004, A337451, A337461, A337462, A337561, A337599, A337601, A337605.

Table[Length[Select[IntegerPartitions[n,{3}],!MemberQ[#,1]&&CoprimeQ@@#&]],{n,0,30}]

A156040 Number of compositions (ordered partitions) of n into 3 parts (some of which may be zero), where the first is at least as great as each of the others.

Original entry on oeis.org

1, 1, 3, 4, 6, 8, 11, 13, 17, 20, 24, 28, 33, 37, 43, 48, 54, 60, 67, 73, 81, 88, 96, 104, 113, 121, 131, 140, 150, 160, 171, 181, 193, 204, 216, 228, 241, 253, 267, 280, 294, 308, 323, 337, 353, 368, 384, 400, 417, 433, 451, 468, 486, 504, 523, 541, 561, 580, 600

Offset: 0

Jack W Grahl, Feb 02 2009, Feb 11 2009

For n = 1, 2 these are just the triangular numbers. a(n) is always at least 1/3 of the corresponding triangular number, since each partition of this type gives up to three ordered partitions with the same cyclical order.
An alternative definition, which avoids using parts of size 0: a(n) is the third diagonal of A184957. - N. J. A. Sloane, Feb 27 2011
Diagonal sums of the triangle formed by rows T(2, k) k = 0, 1, ..., 2m of ascending m-nomial triangles (see A004737):
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 5 6 5 4 3 2 1
- Bob Selcoe, Feb 07 2014
Arrange A004396 in rows successively shifted to the right two spaces and sum the columns:
1  1  2  3  3  4  5  5  6 ...
      1  1  2  3  3  4  5 ...
            1  1  2  3  3 ...
                  1  1  2 ...
                        1 ...
------------------------------
1  1  3  4  6  8 11 13 17 ... - L. Edson Jeffery, Jul 30 2014
a(n) is the dimension of three-dimensional (2n + 2)-homogeneous polynomial vector fields with full tetrahedral symmetry (for a given orthogonal representation), and which are solenoidal. - Giedrius Alkauskas, Sep 30 2017
Also the number of compositions of n + 3 into three parts, the first at least as great as each of the other two. Also the number of compositions of n + 4 into three parts, the first strictly greater than each of the other two. - Gus Wiseman, Oct 09 2020

			G.f. = 1 + x + 3*x^2 + 4*x^3 + 6*x^4 + 8*x^5 + 11*x^6 + 13*x^7 + 17*x^8 + 20*x^9 + ...
The a(4) = 6 compositions of 4 are: (4 0 0), (3 1 0), (3 0 1), (2 2 0), (2 1 1), (2 0 2).
From _Gus Wiseman_, Oct 05 2020: (Start)
The a(0) = 1 through a(7) = 13 triples of nonnegative integers summing to n where the first is at least as great as each of the other two are:
  (000)  (100)  (101)  (111)  (202)  (212)  (222)  (313)
                (110)  (201)  (211)  (221)  (303)  (322)
                (200)  (210)  (220)  (302)  (312)  (331)
                       (300)  (301)  (311)  (321)  (403)
                              (310)  (320)  (330)  (412)
                              (400)  (401)  (402)  (421)
                                     (410)  (411)  (430)
                                     (500)  (420)  (502)
                                            (501)  (511)
                                            (510)  (520)
                                            (600)  (601)
                                                   (610)
                                                   (700)
(End)

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Giedrius Alkauskas, Projective and polynomial superflows. I, arxiv.org/1601.06570 [math.AG] (2017), Section 4.3.
Index entries for linear recurrences with constant coefficients, signature (1,1,0,-1,-1,1).

For compositions into 4 summands see A156039; also see A156041 and A156042.
Cf. A184957, A071619 (bisection).
A001399(n-2)*2 is the strict case.
A001840(n-2) is the version with opposite relations.
A001840(n-1) is the version with strict opposite relations.
A069905 is the case with strict relations.
A014311 ranks 3-part compositions, with strict case A337453.
A014612 ranks 3-part partitions, with strict case A007304.
Cf. A000217, A001523, A211540, A218004, A220377, A337483, A337484.

a:= proc(n) local m, r; m := iquo(n, 6, 'r'); (4 +6*m +2*r) *m + [1, 1, 3, 4, 6, 8][r+1] end: seq(a(n), n=0..60); # Alois P. Heinz, Jun 14 2009

nn = 58; CoefficientList[Series[x^3/(1 - x^2)^2/(1 - x^3) + 1/(1 - x^2)^2/(1 - x), {x, 0, nn}], x] (* Geoffrey Critzer, Jul 14 2013 *)
CoefficientList[Series[(1 + x^2)/((1 + x) * (1 + x + x^2) * (1 - x)^3), {x, 0, 58}], x] (* L. Edson Jeffery, Jul 29 2014 *)
LinearRecurrence[{1, 1, 0, -1, -1, 1}, {1, 1, 3, 4, 6, 8}, 60] (* Harvey P. Dale, May 28 2015 *)
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n+3,{3}],#[[1]]>=#[[2]]&&#[[1]]>=#[[3]]&]],{n,0,15}] (* Gus Wiseman, Oct 05 2020*)

{a(n) = n*(n+4)\6 + 1}; /* Michael Somos, Mar 26 2017 */

G.f.: (x^2+1) / (1-x-x^2+x^4+x^5-x^6). - Alois P. Heinz, Jun 14 2009
Slightly nicer g.f.: (1+x^2)/((1-x)*(1-x^2)*(1-x^3)). - N. J. A. Sloane, Apr 29 2011
a(n) = A007590(n+2) - A000212(n+2). - Richard R. Forberg, Dec 08 2013
a(2*n) = A071619(n+1). - L. Edson Jeffery, Jul 29 2014
a(n) = a(n-1) + a(n-2) - a(n-4) - a(n-5) + a(n-6), with a(0) = 1, a(1) = 1, a(2) = 3, a(3) = 4, a(4) = 6, a(5) = 8. - Harvey P. Dale, May 28 2015
a(n) = (n^2 + 4*n + 3)/6 + IF(MOD(n, 2) = 0, 1/2) + IF(MOD(n, 3) = 1, -1/3). - Heinrich Ludwig, Mar 21 2017
a(n) = 1 + floor((n^2 + 4*n)/6). - Giovanni Resta, Mar 21 2017
Euler transform of length 4 sequence [1, 2, 1, -1]. - Michael Somos, Mar 26 2017
a(n) = a(-4 - n) for all n in Z. - Michael Somos, Mar 26 2017
0 = a(n)*(-1 + a(n) - 2*a(n+1) - 2*a(n+2) + 2*a(n+3)) + a(n+1)*(+1 + a(n+1) + 2*a(n+2) - 2*a(n+3)) + a(n+2)*(+1 + a(n+2) - 2*a(n+3)) + a(n+3)*(-1 + a(n+3)) for all n in Z. - Michael Somos, Mar 26 2017
a(n) = round((n+1)*(n+3)/6). - Bill McEachen, Feb 16 2021
Sum_{n>=0} 1/a(n) = 3/2 + Pi^2/36 + (tan(c1)-1)*c1 + 3*c2*sinh(c2)/(1+2*cosh(c2)), where c1 = Pi/(2*sqrt(3)) and c2 = Pi*sqrt(2)/3. - Amiram Eldar, Dec 10 2022
E.g.f.: ((16 + 15*x + 3*x^2)*cosh(x) + 2*exp(-x/2)*(cos(sqrt(3)*x/2) - sqrt(3)*sin(sqrt(3)*x/2)) + (7 + 15*x + 3*x^2)*sinh(x))/18. - Stefano Spezia, Apr 05 2023

More terms from Alois P. Heinz, Jun 14 2009

A007980 Expansion of (1+x^2)/((1-x)^2*(1-x^3)).

Original entry on oeis.org

1, 2, 4, 7, 10, 14, 19, 24, 30, 37, 44, 52, 61, 70, 80, 91, 102, 114, 127, 140, 154, 169, 184, 200, 217, 234, 252, 271, 290, 310, 331, 352, 374, 397, 420, 444, 469, 494, 520, 547, 574, 602, 631, 660, 690, 721, 752, 784, 817, 850, 884, 919, 954, 990, 1027, 1064

Offset: 0

N. J. A. Sloane

Molien series for ternary self-dual codes over GF(3) of length 12n containing 11...1.
(1+x)*(1+x^2) / ((1-x)*(1-x^2)*(1-x^3)) is the Poincaré series [or Poincare series] (or Molien series) for H^*(O_3(q); F_2).
a(n) is the position of the n-th triangular number in the running sum of the (pseudo-Orloj) sequence 1,2,1,2,1,2,1...., cf. A028355. - Wouter Meeussen, Mar 10 2002
a(n) = [a(n-1) + (number of even terms so far in the sequence)]. Example: 14 is [10 + 4 even terms so far in the sequence (they are 0,2,4,10)]. See A096777 for the same construction with odd integers. - Eric Angelini, Aug 05 2007
The number of partitions of 2*n into at most 3 parts. - Colin Barker, Mar 31 2015
Also a(n) equals the number of linearly-independent terms at 2n-th order in the power series expansion of a trigonal Rotational Energy Surface. An optimal basis for the expansion follows either decomposition: g1(x) = (1+x)(1+x^2)g2(x) or g1(x) = (1+x^2)x^(-1)g3(x), where g1(x), g2(x), g3(x) are the generating functions for sequences A007980, A001399, A001840. - Bradley Klee, Aug 06 2015
Also a(n) equals the number of linearly-independent terms at 4n-th order in the power series expansion of the symmetrized weight enumerator of a self-dual code of length n over Z4 that contains a vector (+/-)1^n and has all norms divisible by 8. An optimal basis for the expansion follows the decomposition: g1(x) = (1+x)(1+x^2)g2(x) where g1(x), g2(x) are the generating functions for sequences A007980, A001399. (Cf. Calderbank and Sloane, Corollary 5.) - Bradley Klee, Aug 06 2015
Also, a(n) is equal to the number of partitions of 2n+3 of length 3. Letting n=4, there are a(4)=10 partitions of 2n+3=11 of length 3: (9,1,1), (8,2,1), (7,3,1), (7,2,2), (6,4,1), (6,3,2), (5,5,1), (5,4,2), (5,3,3), (4,4,3). - John M. Campbell, Jan 30 2016
a(n) is the number of partitions of n into parts 1 (of two kinds), part 2 (occurring at most once), and parts 3. - Joerg Arndt, Oct 12 2020
Conjecture: a(n) is the maximum number of pieces a triangle can be cut into by n cevians. - Anton Zakharov, Apr 04 2017
Also, a(n) is the number of graphs which are double-triangle descendants of K_5 with n+6 triangles and 3 more vertices than triangles. See Laradji/Mishna/Yeats reference, proposition 3.6 for details. - Karen A. Yeats, Feb 21 2020

			G.f. = 1 + 2*x + 4*x^2 + 7*x^3 + 10*x^4 + 14*x^5 + 19*x^6 + 24*x^7 + ...

A. Adem and R. J. Milgram, Cohomology of Finite Groups, Springer-Verlag, 2nd. ed., 2004; p. 233.

Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Raghavendra N. Bhat, Cristian Cobeli, and Alexandru Zaharescu, A lozenge triangulation of the plane with integers, arXiv:2403.10500 [math.NT], 2024.
A. R. Calderbank and N. J. A. Sloane, Double circulant codes over Z_4, J. Algeb. Combin., 6 (1997) 119-131 (Abstract, pdf, ps).
Mohamed Laradji, Marni Mishna, and Karen Yeats, Some results on double triangle descendants of K_5, arXiv:1904.06923 [math.CO], 2019.
C. L. Mallows and N. J. A. Sloane, Weight enumerators of self-orthogonal codes over GF(3), SIAM J. Alg. Discrete Methods, 2 (1981), 452-460.
Paul Tabatabai and Dieter P. Gruber, Knights and Liars on Graphs, J. Int. Seq., Vol. 24 (2021), Article 21.5.8.
Anton Zakharov, cevians.
Index entries for linear recurrences with constant coefficients, signature (2,-1,1,-2,1).
Index entries for Molien series.
Index entries for two-way infinite sequences.

Cf. A000326, A001399, A001840, A002378, A003215, A004396, A005449, A007980.

Cf. A008796, A028355, A049450, A069905, A096777, A192736, A211540, A238705.

with (combinat):seq(count(Partition((2*n+1)), size=3), n=1..56); # Zerinvary Lajos, Mar 28 2008

Table[Ceiling[n (n+1)/3], {n, 56}]
CoefficientList[Series[(1+x^2)/((1-x)^2*(1-x^3)),{x,0,60}],x] (* Vincenzo Librandi, Feb 25 2012 *)
a[ n_] := Quotient[ n^2, 3] + n + 1; (* Michael Somos, Aug 23 2015 *)
LinearRecurrence[{2,-1,1,-2,1},{1,2,4,7,10},60] (* Harvey P. Dale, Aug 24 2016 *)

{a(n) = if( n<-1, a(-3-n), polcoeff( (1 + x^2) / ( (1 - x)^2 * (1 - x^3)) + x*O(x^n), n))}; /* Michael Somos, Jun 07 2003 */

{a(n) = n^2\3 + n+1}; /* Michael Somos, Aug 23 2015 */

a(n) = #partitions(2*n, ,[1,3]); \\ Michel Marcus, Feb 12 2016

a(n) = #partitions(2*n+3, ,[3,3]); \\ Michel Marcus, Feb 12 2016

G.f.: (1 + x^2) / ((1 - x)^2 * (1 - x^3)). - Michael Somos, Jun 07 2003
a(n) = a(n-1) + a(n-3) -a(n-4) + 2 = a(-3-n) for all n in Z. - Michael Somos, Jun 07 2003
a(n) = ceiling((n+1)*(n+2)/3). - Paul Boddington, Jan 26 2004
a(n) = A192736(n+1) / (n+1). - Reinhard Zumkeller, Jul 08 2011
From Bruno Berselli, Oct 22 2010: (Start)
a(n) = ((n+1)*(n+2)+(2*cos(2*Pi*n/3)+1)/3)/3 = Sum_{i=1..n+1} A004396(i).
a(n) = 2*a(n-1) - a(n-2) + a(n-3) - 2*a(n-4) + a(n-5) for n>4.
a(n) = A002378(n+1)/3 if 3 divides A002378(n+1), a(n) = (A002378(n)+1)/3 otherwise. (End)
a(n) = A001840(n+1) + A001840(n-1). - R. J. Mathar, Aug 23 2015
From Michael Somos, Aug 23 2015: (Start)
Euler transform of length 4 sequence [2, 1, 1, -1].
a(n) = A001399(2*n) = A008796(2*n) = A008796(2*n + 3) = A069905(2*n + 3) = A211540(2*n + 5).
a(2*n)     = A238705(n+1).
a(3*n - 1) = A049451(n).
a(3*n)     = A003215(n).
a(3*n + 1) = A049450(n+1).
2*a(3*n - 1)  = A005449(n).
2*a(3*n + 1)  = A000326(n+1).
a(n+1) - a(n) = A004396(n+2). (End)
a(n) = floor((n^2+3*n+3)/3). - Giacomo Guglieri, May 01 2019
a(n) = A000212(n) + n+1. - Yuchun Ji, Oct 12 2020
Sum_{n>=0} 1/a(n) = (tanh(Pi/(2*sqrt(3)))-1)*Pi/sqrt(3) + 3. - Amiram Eldar, May 20 2023

A253186 Number of connected unlabeled loopless multigraphs with 3 vertices and n edges.

Original entry on oeis.org

0, 0, 1, 2, 3, 4, 6, 7, 9, 11, 13, 15, 18, 20, 23, 26, 29, 32, 36, 39, 43, 47, 51, 55, 60, 64, 69, 74, 79, 84, 90, 95, 101, 107, 113, 119, 126, 132, 139, 146, 153, 160, 168, 175, 183, 191, 199, 207, 216, 224, 233, 242, 251, 260, 270, 279, 289, 299, 309, 319, 330

Offset: 0

Danny Rorabaugh, Mar 23 2015

a(n) is also the number of ways to partition n into 2 or 3 parts.
a(n) is also the dimension of linear space of three-dimensional 2n-homogeneous polynomial vector fields, which have an octahedral symmetry (for a given representation), which are solenoidal, and which are vector fields on spheres. - Giedrius Alkauskas, Sep 30 2017
Apparently a(n) = A244239(n-6) for n > 4. - Georg Fischer, Oct 09 2018
a(n) is also the number of loopless connected n-regular multigraphs with 4 nodes. - Natan Arie Consigli, Aug 09 2019
a(n) is also the number of inequivalent linear [n, k=2] binary codes without 0 columns (see A034253 for more details). - Petros Hadjicostas, Oct 02 2019
Differs from A160138 only by the offset. - R. J. Mathar, May 15 2023
From Allan Bickle, Jul 13 2025: (Start)
a(n) is the number of theta graphs with n-2 vertices, or n-1 edges.  Equivalently, the number of 2-connected graphs with n-2 vertices and n-1 edges.
A theta graph has three paths with length at least 1 identified at their endpoints.  There can at most one path with length 1.
For instance the theta graphs with 6 vertices have paths with lengths (1,2,4), (1,3,3), or (2,2,2), so a(6-2) = 3. (End)

			On vertex set {a, b, c}, every connected multigraph with n = 5 edges is isomorphic to a multigraph with one of the following a(5) = 4 edge multisets: {ab, ab, ab, ab, ac}, {ab, ab, ab, ac, ac}, {ab, ab, ab, ac, bc}, and {ab, ab, ac, ac, bc}.

Danny Rorabaugh, Table of n, a(n) for n = 0..10000
Giedrius Alkauskas, Projective and polynomial superflows. I, arxiv.org/1601.06570 [math.AG], 2017; see Section 5.3.
Harald Fripertinger, Isometry Classes of Codes.
Harald Fripertinger, Snk2: Number of the isometry classes of all binary (n,k)-codes without zero-columns. [See column k = 2.]
H. Fripertinger and A. Kerber, Isometry classes of indecomposable linear codes. In: G. Cohen, M. Giusti, T. Mora (eds), Applied Algebra, Algebraic Algorithms and Error-Correcting Codes, 11th International Symposium, AAECC 1995, Lect. Notes Comp. Sci. 948 (1995), pp. 194-204. [Here a(n) = S_{n,2,2}.]
R. J. Mathar, Statistics on Small Graphs, arXiv:1709.09000 [math.CO], 2017; see Eq. (23).
Gordon Royle, Small Multigraphs.
Index entries for linear recurrences with constant coefficients, signature (1,1,0,-1,-1,1).

Cf. A001399, A003082, A014395, A014396, A014397, A014398, A050535, A076864.
Column k = 3 of A191646 and column k = 2 of A034253.
First differences of A034198 (excepting the first term).
Cf. A213654, A213655, A213668 (theta graphs).

[Floor(n/2) + Floor((n^2 + 6)/12): n in [0..70]]; // Vincenzo Librandi, Mar 24 2015

CoefficientList[Series[- x^2 (x^3 - x - 1) / ((1 - x) (1 - x^2) (1 - x^3)), {x, 0, 70}], x] (* Vincenzo Librandi, Mar 24 2015 *)
LinearRecurrence[{1, 1, 0, -1, -1, 1}, {0, 0, 1, 2, 3, 4}, 61] (* Robert G. Wilson v, Oct 11 2017 *)
a[n_]:=Floor[n/2] + Floor[(n^2 + 6)/12]; Array[a, 70, 0] (* Stefano Spezia, Oct 09 2018 *)

[floor(n/2) + floor((n^2 + 6)/12) for n in range(70)]

a(n) = A004526(n) + A069905(n).
a(n) = floor(n/2) + floor((n^2 + 6)/12).
G.f.: x^2*(x^3 - x - 1)/((x - 1)^2*(x^2 - 1)*(x^2 + x + 1)).

A337603 Number of ordered triples of positive integers summing to n whose set of distinct parts is pairwise coprime, where a singleton is not considered coprime unless it is (1).

Original entry on oeis.org

0, 0, 0, 1, 3, 6, 9, 9, 18, 15, 24, 21, 42, 24, 51, 30, 54, 42, 93, 45, 102, 54, 99, 69, 162, 66, 150, 87, 168, 96, 264, 93, 228, 120, 246, 126, 336, 132, 315, 168, 342, 162, 486, 165, 420, 216, 411, 213, 618, 207, 558, 258, 540, 258, 783, 264, 654, 324, 660

Offset: 0

Gus Wiseman, Sep 20 2020

nonn

			The a(3) = 1 through a(8) = 18 triples:
  (1,1,1)  (1,1,2)  (1,1,3)  (1,1,4)  (1,1,5)  (1,1,6)
           (1,2,1)  (1,2,2)  (1,2,3)  (1,3,3)  (1,2,5)
           (2,1,1)  (1,3,1)  (1,3,2)  (1,5,1)  (1,3,4)
                    (2,1,2)  (1,4,1)  (2,2,3)  (1,4,3)
                    (2,2,1)  (2,1,3)  (2,3,2)  (1,5,2)
                    (3,1,1)  (2,3,1)  (3,1,3)  (1,6,1)
                             (3,1,2)  (3,2,2)  (2,1,5)
                             (3,2,1)  (3,3,1)  (2,3,3)
                             (4,1,1)  (5,1,1)  (2,5,1)
                                               (3,1,4)
                                               (3,2,3)
                                               (3,3,2)
                                               (3,4,1)
                                               (4,1,3)
                                               (4,3,1)
                                               (5,1,2)
                                               (5,2,1)
                                               (6,1,1)

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..10000

A014311 intersected with A333228 ranks these compositions.
A220377*6 is the strict case.
A337461 is the strict case except for any number of 1's.
A337601 is the unordered version.
A337602 considers all singletons to be coprime.
A337665 counts these compositions of any length, ranked by A333228 with complement A335238.
A000217(n - 2) counts 3-part compositions.
A001399(n - 3) = A069905(n) = A211540(n + 2) counts 3-part partitions.
A007318 and A097805 count compositions by length.
A051424 counts pairwise coprime or singleton partitions.
A101268 counts pairwise coprime or singleton compositions.
A304711 ranks partitions whose distinct parts are pairwise coprime.
A305713 counts strict pairwise coprime partitions.
A327516 counts pairwise coprime partitions, with strict case A305713.
A333227 ranks pairwise coprime compositions.
Cf. A000740, A001840, A007359, A087087, A178472, A284825, A302696, A307719, A335235, A337561, A337695.

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n,{3}],CoprimeQ@@Union[#]&]],{n,0,100}]

A082024 Number of partitions of n into 3 parts which have common divisors.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 2, 0, 4, 0, 4, 3, 5, 0, 9, 0, 9, 5, 10, 0, 16, 2, 14, 7, 17, 0, 27, 0, 21, 11, 24, 6, 36, 0, 30, 15, 37, 0, 51, 0, 41, 25, 44, 0, 64, 4, 58, 25, 57, 0, 81, 12, 69, 31, 70, 0, 108, 0, 80, 43, 85, 16, 123, 0, 97, 45, 120, 0, 144, 0, 114, 69, 121, 14, 171, 0

Offset: 0

Amarnath Murthy, Apr 07 2003

a(p) = 0 if p is a prime. Can anyone suggest a formula?

See example for a method to find a(n). - David A. Corneth, Aug 24 2020

			a(14) = 4 and the partitions are (10,2,2), (8,4,2),(6,6,2) and (6,4,4).
a(13) = 0 as for all r + s + t = 13,r > 0, s > 0,t> 0 gcd(r,s,t) = 1.
From _David A. Corneth_, Aug 24 2020: (Start)
a(100) = 233. The squarefree part of 100 is 10. The divisors of 10 are 1, 2, 5 and 10.
These are the possible squarefree divisors of parts. As parts must not be coprime, we exclude 1, leaving 2, 5 and 10. We then compute 100/k for each of these numbers.
This gives 50, 20 and 10 respectively. Now a(100) is found by adding -(round(50^2/12)*(-1)^omega(2) + round(20^2/12)*(-1)^omega(5) + round(10^2/12)*(-1)^omega(10)) = -(-208 - 33 + 8) = 233 where omega(m) is the number of distinct divisors of m (Cf. A001221) and round(m^2/12) is the number of partitions of m into 3 parts (Cf. A069905) (End)

David A. Corneth, Table of n, a(n) for n = 0..9999 (first 5001 terms from Alois P. Heinz)

Cf. A001221, A069905, A082023, A284825.

a[n_] := Length[Select[Flatten[Table[{a, b, n-a-b}, {a, 1, Floor[n/3]}, {b, a, Floor[(n-a)/2]}], 1], GCD@@#1>1&]]

a(n) = if(n==0, return(0)); cn = factorback(factor(n)[, 1]); d = divisors(cn); -sum(i = 2, #d, round((n/d[i])^2/12) * (-1)^omega(d[i])) \\ David A. Corneth, Aug 24 2020

More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 20 2003 and Dean Hickerson, Apr 22 2003

A337601 Number of unordered triples of positive integers summing to n whose set of distinct parts is pairwise coprime, where a singleton is not considered coprime unless it is (1).

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 2, 3, 4, 4, 5, 6, 8, 7, 10, 7, 11, 11, 17, 12, 19, 12, 19, 17, 29, 16, 28, 19, 31, 23, 46, 23, 42, 25, 45, 27, 59, 31, 57, 34, 61, 37, 84, 38, 75, 42, 74, 47, 107, 45, 98, 51, 96, 56, 135, 54, 115, 63, 117, 67, 174, 65, 139, 75, 144, 75, 194

Offset: 0

Gus Wiseman, Sep 20 2020

nonn

First differs from A337600 at a(9) = 4, A337600(9) = 5.

			The a(3) = 1 through a(14) = 10 partitions (A = 10, B = 11, C = 12):
  111  211  221  321  322  332  441  433  443  543  544  554
            311  411  331  431  522  532  533  552  553  743
                      511  521  531  541  551  651  661  752
                           611  711  721  722  732  733  761
                                     811  731  741  751  833
                                          911  831  922  851
                                               921  B11  941
                                               A11       A31
                                                         B21
                                                         C11

Fausto A. C. Cariboni, Table of n, a(n) for n = 0..10000

A014612 intersected with A304711 ranks these partitions.
A220377 is the strict case.
A304709 counts these partitions of any length.
A307719 is the strict case except for any number of 1's.
A337600 considers singletons to be coprime.
A337603 is the ordered version.
A000217 counts 3-part compositions.
A000837 counts relatively prime partitions.
A001399/A069905/A211540 count 3-part partitions.
A023023 counts relatively prime 3-part partitions.
A051424 counts pairwise coprime or singleton partitions.
A101268 counts pairwise coprime or singleton compositions.
A305713 counts pairwise coprime strict partitions.
A327516 counts pairwise coprime partitions.
A333227 ranks pairwise coprime compositions.
A333228 ranks compositions whose distinct parts are pairwise coprime.
A337461 counts pairwise coprime 3-part compositions.
Cf. A001840, A007359, A007360, A087087, A284825, A302696, A304712, A328673, A335238, A337602.

Table[Length[Select[IntegerPartitions[n,{3}],CoprimeQ@@Union[#]&]],{n,0,100}]

For n > 0, a(n) = A337600(n) - A079978(n).

cp's OEIS Frontend

A211540 Number of ordered triples (w,x,y) with all terms in {1..n} and 2w = 3x + 4y.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

PARI

Formula

A140106 Number of noncongruent diagonals in a regular n-gon.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Python

SageMath

Formula

Extensions

A008642 Quarter-squares repeated.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

PARI

Sage

Formula

A337563 Number of pairwise coprime unordered triples of positive integers > 1 summing to n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A156040 Number of compositions (ordered partitions) of n into 3 parts (some of which may be zero), where the first is at least as great as each of the others.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A007980 Expansion of (1+x^2)/((1-x)^2*(1-x^3)).

Views

Author

Keywords

Comments

Examples

References