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-10 of 14 results. Next

A084835 a(n) = A000094(n+4) - A006918(n).

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 2, 5, 10, 18, 30, 49, 75, 112, 163, 231, 322, 441, 595, 792, 1045, 1361, 1760, 2255, 2871, 3626, 4559, 5691, 7077, 8750, 10780, 13216, 16156, 19662, 23868, 28866, 34828, 41882, 50262, 60138
Offset: 1

Views

Author

Jon Perry, Jul 12 2003

Keywords

Comments

Also the number of integer partitions of n - 3 with Durfee square of length > 2, i.e., those with at least 3 parts > 2. The Heinz numbers of these partitions are given by A307515. - Gus Wiseman, Apr 12 2019

Crossrefs

Programs

  • Maple
    A084845 := proc(n)
        A000094(n+4)-A006918(n)
    end proc:
    seq(A084845(n),n=1..40) ; # R. J. Mathar, May 17 2016
  • Mathematica
    durf[ptn_]:=Length[Select[Range[Length[ptn]],ptn[[#]]>=#&]];
    Table[Length[Select[IntegerPartitions[n],durf[#]>2&]],{n,0,30}] (* Gus Wiseman, Apr 12 2019 *)

A006918 a(n) = binomial(n+3, 3)/4 for odd n, n*(n+2)*(n+4)/24 for even n.

Original entry on oeis.org

0, 1, 2, 5, 8, 14, 20, 30, 40, 55, 70, 91, 112, 140, 168, 204, 240, 285, 330, 385, 440, 506, 572, 650, 728, 819, 910, 1015, 1120, 1240, 1360, 1496, 1632, 1785, 1938, 2109, 2280, 2470, 2660, 2870, 3080, 3311, 3542, 3795, 4048, 4324, 4600, 4900, 5200, 5525, 5850, 6201, 6552, 6930
Offset: 0

Views

Author

Keywords

Comments

Maximal number of inconsistent triples in a tournament on n+2 nodes [Kac]. - corrected by Leen Droogendijk, Nov 10 2014
a(n-4) is the number of aperiodic necklaces (Lyndon words) with 4 black beads and n-4 white beads.
a(n-3) is the maximum number of squares that can be formed from n lines, for n>=3. - Erich Friedman; corrected by Leen Droogendijk, Nov 10 2014
Number of trees with diameter 4 where at most 2 vertices 1 away from the graph center have degree > 2. - Jon Perry, Jul 11 2003
a(n+1) is the number of partitions of n into parts of two kinds, with at most two parts of each kind. Also a(n-3) is the number of partitions of n with Durfee square of size 2. - Franklin T. Adams-Watters, Jan 27 2006
Factoring the g.f. as x/(1-x)^2 times 1/(1-x^2)^2 we find that the sequence equals (1, 2, 3, 4, ...) convolved with (1, 0, 2, 0, 3, 0, 4, ...), A000027 convolved with its aerated variant. - Gary W. Adamson, May 01 2009
Starting with "1" = triangle A171238 * [1,2,3,...]. - Gary W. Adamson, Dec 05 2009
The Kn21, Kn22, Kn23, Fi2 and Ze2 triangle sums, see A180662 for their definitions, of the Connell-Pol triangle A159797 are linear sums of shifted versions of this sequence, e.g., Kn22(n) = a(n+1) + a(n) + 2*a(n-1) + a(n-2) and Fi2(n) = a(n) + 4*a(n-1) + a(n-2). - Johannes W. Meijer, May 20 2011
For n>3, a(n-4) is the number of (w,x,y,z) having all terms in {1,...,n} and w+x+y+z=|x-y|+|y-z|. - Clark Kimberling, May 23 2012
a(n) is the number of (w,x,y) having all terms in {0,...,n} and w+x+y < |w-x|+|x-y|. - Clark Kimberling, Jun 13 2012
For n>0 number of inequivalent (n-1) X 2 binary matrices, where equivalence means permutations of rows or columns or the symbol set. - Alois P. Heinz, Aug 17 2014
Number of partitions p of n+5 such that p[3] = 2. Examples: a(1)=1 because we have (2,2,2); a(2)=2 because we have (2,2,2,1) and (3,2,2); a(3)=5 because we have (2,2,2,1,1), (2,2,2,2), (3,2,2,1), (3,3,2), and (4,2,2). See the R. P. Stanley reference. - Emeric Deutsch, Oct 28 2014
Sum over each antidiagonal of A243866. - Christopher Hunt Gribble, Apr 02 2015
Number of nonisomorphic outer planar graphs of order n>=3, size n+2, and maximum degree 3. - Christian Barrientos and Sarah Minion, Feb 27 2018
a(n) is the number of 2413-avoiding odd Grassmannian permutations of size n+1. - Juan B. Gil, Mar 09 2023

Examples

			G.f. = x + 2*x^2 + 5*x^3 + 8*x^4 + 14*x^5 + 20*x^6 + 30*x^7 + 40*x^8 + 55*x^9 + ...
From _Gus Wiseman_, Apr 06 2019: (Start)
The a(4 - 3) = 1 through a(8 - 3) = 14 integer partitions with Durfee square of length 2 are the following (see Franklin T. Adams-Watters's second comment). The Heinz numbers of these partitions are given by A325164.
  (22)  (32)   (33)    (43)     (44)
        (221)  (42)    (52)     (53)
               (222)   (322)    (62)
               (321)   (331)    (332)
               (2211)  (421)    (422)
                       (2221)   (431)
                       (3211)   (521)
                       (22111)  (2222)
                                (3221)
                                (3311)
                                (4211)
                                (22211)
                                (32111)
                                (221111)
The a(0 + 1) = 1 through a(4 + 1) = 14 integer partitions of n into parts of two kinds with at most two parts of each kind are the following (see Franklin T. Adams-Watters's first comment).
  ()()  ()(1)  ()(2)   ()(3)    ()(4)
        (1)()  (2)()   (3)()    (4)()
               ()(11)  (1)(2)   (1)(3)
               (1)(1)  ()(21)   ()(22)
               (11)()  (2)(1)   (2)(2)
                       (21)()   (22)()
                       (1)(11)  ()(31)
                       (11)(1)  (3)(1)
                                (31)()
                                (11)(2)
                                (1)(21)
                                (2)(11)
                                (21)(1)
                                (11)(11)
The a(6 - 5) = 1 through a(10 - 5) = 14 integer partitions whose third part is 2 are the following (see Emeric Deutsch's comment). The Heinz numbers of these partitions are given by A307373.
  (222)  (322)   (332)    (432)     (442)
         (2221)  (422)    (522)     (532)
                 (2222)   (3222)    (622)
                 (3221)   (3321)    (3322)
                 (22211)  (4221)    (4222)
                          (22221)   (4321)
                          (32211)   (5221)
                          (222111)  (22222)
                                    (32221)
                                    (33211)
                                    (42211)
                                    (222211)
                                    (322111)
                                    (2221111)
(End)
		

References

  • J. M. Borwein, D. H. Bailey and R. Girgensohn, Experimentation in Mathematics, A K Peters, Ltd., Natick, MA, 2004. x+357 pp. See p. 147.
  • M. Kac, An example of "counting without counting", Philips Res. Reports, 30 (1975), 20*-22* [Special issue in honour of C. J. Bouwkamp].
  • E. V. McLaughlin, Numbers of factorizations in non-unique factorial domains, Senior Thesis, Allegeny College, Meadville, PA, 2004.
  • K. B. Reid and L. W. Beineke "Tournaments", pp. 169-204 in L. W. Beineke and R. J. Wilson, editors, Selected Topics in Graph Theory, Academic Press, NY, 1978, p. 186, Theorem 6.11.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
  • R. P. Stanley, Enumerative Combinatorics, Cambridge, Vol. 1, 2nd ed., 2012, Exercise 4.16, pp. 530, 552.
  • W. A. Whitworth, DCC Exercises in Choice and Chance, Stechert, NY, 1945, p. 33.

Crossrefs

Cf. A000031, A001037, A028723, A051168. a(n) = T(n,4), array T as in A051168.
Cf. A000094.
Cf. A171238. - Gary W. Adamson, Dec 05 2009
Row sums of A173997. - Gary W. Adamson, Mar 05 2010
Column k=2 of A242093. Column k=2 of A115720 and A115994.

Programs

  • Haskell
    a006918 n = a006918_list !! n
    a006918_list = scanl (+) 0 a008805_list
    -- Reinhard Zumkeller, Feb 01 2013
    
  • Magma
    [Floor(Binomial(n+4, 4)/(n+4))-Floor((n+2)/8)*(1+(-1)^n)/2: n in [0..60]]; // Vincenzo Librandi, Nov 10 2014
  • Maple
    with(combstruct):ZL:=[st,{st=Prod(left,right),left=Set(U,card=r),right=Set(U,card=r),U=Sequence(Z,card>=3)}, unlabeled]: subs(r=1,stack): seq(count(subs(r=2,ZL),size=m),m=11..58) ; # Zerinvary Lajos, Mar 09 2007
    A006918 := proc(n)
        if type(n,'even') then
            n*(n+2)*(n+4)/24 ;
        else
            binomial(n+3,3)/4 ;
        fi ;
    end proc: # R. J. Mathar, May 17 2016
  • Mathematica
    f[n_]:=If[EvenQ[n],(n(n+2)(n+4))/24,Binomial[n+3,3]/4]; Join[{0},Array[f,60]]  (* Harvey P. Dale, Apr 20 2011 *)
    durf[ptn_]:=Length[Select[Range[Length[ptn]],ptn[[#]]>=#&]];
    Table[Length[Select[IntegerPartitions[n],durf[#]==2&]],{n,0,30}] (* Gus Wiseman, Apr 06 2019 *)
  • PARI
    { parttrees(n)=local(pt,k,nk); if (n%2==0, pt=(n/2+1)^2, pt=ceil(n/2)*(ceil(n/2)+1)); pt+=floor(n/2); for (x=1,floor(n/2),pt+=floor(x/2)+floor((n-x)/2)); if (n%2==0 && n>2, pt-=floor(n/4)); k=1; while (3*k<=n, for (x=k,floor((n-k)/2), pt+=floor(k/2); if (x!=k, pt+=floor(x/2)); if ((n-x-k)!=k && (n-x-k)!=x, pt+=floor((n-x-k)/2))); k++); pt }
    
  • PARI
    {a(n) = n += 2; (n^3 - n * (2-n%2)^2) / 24}; /* Michael Somos, Aug 15 2009 */
    

Formula

G.f.: x/((1-x)^2*(1-x^2)^2) = x/((1+x)^2*(1-x)^4).
0, 0, 0, 1, 2, 5, 8, 14, ... has a(n) = (Sum_{k=0..n} floor(k(n-k)/2))/2. - Paul Barry, Sep 14 2003
0, 0, 0, 0, 0, 1, 2, 5, 8, 14, 20, 30, 40, 55, ... has a(n) = binomial(floor(1/2 n), 3) + binomial(floor(1/2 n + 1/2), 3) [Eke]. - N. J. A. Sloane, May 12 2012
a(0)=0, a(1)=1, a(n) = (2/(n-1))*a(n-1) + ((n+3)/(n-1))*a(n-2). - Benoit Cloitre, Jun 28 2004
a(n) = floor(binomial(n+4, 4)/(n+4)) - floor((n+2)/8)(1+(-1)^n)/2. - Paul Barry, Jan 01 2005
a(n+1) = a(n) + binomial(floor(n/2)+2,2), i.e., first differences are A008805. Convolution of A008619 with itself, then shifted right (or A004526 with itself, shifted left by 3). - Franklin T. Adams-Watters, Jan 27 2006
a(n+1) = (A027656(n) + A003451(n+5))/2 with a(1)=0. - Yosu Yurramendi, Sep 12 2008
Linear recurrence: a(n) = 2a(n-1) + a(n-2) - 4a(n-3) + a(n-4) + 2a(n-5) - a(n-6). - Jaume Oliver Lafont, Dec 05 2008
Euler transform of length 2 sequence [2, 2]. - Michael Somos, Aug 15 2009
a(n) = -a(-4-n) for all n in Z.
a(n+1) + a(n) = A002623(n). - Johannes W. Meijer, May 20 2011
a(n) = (n+2)*(2*n*(n+4)-3*(-1)^n+3)/48. - Bruno Berselli, May 21 2011
a(2n) = A007290(n+2). - Jon Perry, Nov 10 2014
G.f.: (1/(1-x)^4-1/(1-x^2)^2)/4. - Herbert Kociemba, Oct 23 2016
E.g.f.: (x*(18 + 9*x + x^2)*cosh(x) + (6 + 15*x + 9*x^2 + x^3)*sinh(x))/24. - Stefano Spezia, Dec 07 2021
From Amiram Eldar, Mar 20 2022: (Start)
Sum_{n>=1} 1/a(n) = 75/4 - 24*log(2).
Sum_{n>=1} (-1)^(n+1)/a(n) = 69/4 - 24*log(2). (End)

A194447 Rank of the n-th region of the set of partitions of j, if 1<=n<=A000041(j).

Original entry on oeis.org

0, 0, 0, 1, -1, 2, -2, 1, 2, 2, -5, 2, 3, 3, -8, 1, 2, 2, 2, 4, 3, -14, 2, 3, 3, 3, 2, 4, 4, -21, 1, 2, 2, 2, 4, 3, 1, 3, 5, 5, 4, -32, 2, 3, 3, 3, 2, 4, 4, 1, 4, 3, 5, 6, 5, -45, 1, 2, 2, 2, 4, 3, 1, 3, 5, 5, 4, -2, 2, 4, 4, 5, 3, 6, 6, 5, -65
Offset: 1

Views

Author

Omar E. Pol, Dec 04 2011

Keywords

Comments

Here the rank of a "region" is defined to be the largest part minus the number of parts (the same idea as the Dyson's rank of a partition).
Also triangle read by rows: T(j,k) = rank of the k-th region of the last section of the set of partitions of j.
The sum of every row is equal to zero.
Note that in some rows there are several negative terms. - Omar E. Pol, Oct 27 2012
For the definition of "region" see A206437. See also A225600 and A225610. - Omar E. Pol, Aug 12 2013

Examples

			In the triangle T(j,k) for j = 6 the number of regions in the last section of the set of partitions of 6 is equal to 4. The first region given by [2] has rank 2-1 = 1. The second region given by [4,2] has rank 4-2 = 2. The third region given by [3] has rank 3-1 = 2. The fourth region given by [6,3,2,2,1,1,1,1,1,1,1] has rank 6-11 = -5 (see below):
From _Omar E. Pol_, Aug 12 2013: (Start)
---------------------------------------------------------
.    Regions       Illustration of ranks of the regions
---------------------------------------------------------
.    For J=6        k=1     k=2      k=3        k=4
.  _ _ _ _ _ _                              _ _ _ _ _ _
. |_ _ _      |                     _ _ _   .          |
. |_ _ _|_    |           _ _ _ _   * * .|    .        |
. |_ _    |   |     _ _   * * .  |              .      |
. |_ _|_ _|_  |     * .|        .|                .    |
.           | |                                     .  |
.           | |                                       .|
.           | |                                       *|
.           | |                                       *|
.           | |                                       *|
.           | |                                       *|
.           |_|                                       *|
.
So row 6 lists:     1       2         2              -5
(End)
Written as a triangle begins:
0;
0;
0;
1,-1;
2,-2;
1,2,2,-5;
2,3,3,-8;
1,2,2,2,4,3,-14;
2,3,3,3,2,4,4,-21;
1,2,2,2,4,3,1,3,5,5,4,-32;
2,3,3,3,2,4,4,1,4,3,5,6,5,-45;
1,2,2,2,4,3,1,3,5,5,4,-2,2,4,4,5,3,6,6,5,-65;
2,3,3,3,2,4,4,1,4,3,5,6,5,-3,3,5,5,4,5,4,7,7,6,-88;
		

Crossrefs

Row j has length A187219(j). The absolute value of the last term of row j is A000094(j+1). Row sums give A000004.

Formula

a(n) = A141285(n) - A194446(n). - Omar E. Pol, Dec 05 2011

A083751 Number of partitions of n into >= 2 parts and with minimum part >= 2.

Original entry on oeis.org

0, 0, 0, 1, 1, 3, 3, 6, 7, 11, 13, 20, 23, 33, 40, 54, 65, 87, 104, 136, 164, 209, 252, 319, 382, 477, 573, 707, 846, 1038, 1237, 1506, 1793, 2166, 2572, 3093, 3659, 4377, 5169, 6152, 7244, 8590, 10086, 11913, 13958, 16423, 19195, 22518, 26251, 30700, 35716
Offset: 1

Views

Author

Jon Perry, Jun 17 2003

Keywords

Comments

Also number of partitions of n such that the largest part is at least 2 and occurs at least twice. Example: a(6)=3 because we have [3,3],[2,2,2] and [2,2,1,1]. - Emeric Deutsch, Mar 29 2006
Also number of partitions of n that contain emergent parts (Cf. A182699). - Omar E. Pol, Oct 21 2011
Also number of regions in the last section of the set of partitions of n that do not contain 1 as a part (cf. A187219). - Omar E. Pol, Mar 04 2012
Schneider calls these "nuclear partitions" and gives a remarkable formula relating a(n), the number of partitions of n, and a sum over the two greatest parts of each such partition. - Charles R Greathouse IV, Dec 04 2019

Examples

			a(6) = 3, as 6 = 2+4 = 3+3 = 2+2+2.
a(6) = 3 because 6 = 2+4 = 3+3 = 2+2+2.
		

Crossrefs

First differences of A000094.

Programs

  • Maple
    g:=sum(x^(2*j)/product(1-x^i,i=1..j),j=2..50): gser:=series(g,x=0,55): seq(coeff(gser,x,n),n=1..51); # Emeric Deutsch, Mar 29 2006
  • Mathematica
    Drop[CoefficientList[Series[1/Product[(1-x^k)^1, {k, 2, 50}], {x, 0, 50}], x]-1, 2]
    (* or *) Table[Count[IntegerPartitions[n], q_List /; Length[q] > 1 && Min[q] >= 2 ], {n, 24}]

Formula

a(n) = A000041(n) - A000041(n-1) - 1, n > 1. - Vladeta Jovovic, Jun 18 2003
G.f.: Sum_{j>=2} x^(2j)/Product_{i=1..j} (1-x^i). - Emeric Deutsch, Mar 29 2006
a(n) = A002865(n) - 1, n > 1. - Omar E. Pol, Oct 21 2011
a(n) = A187219(n) - 1. - Omar E. Pol, Mar 04 2012

Extensions

More terms from Vladeta Jovovic and Wouter Meeussen, Jun 18 2003
Description corrected by James Sellers, Jun 21 2003

A225610 Total number of parts in all partitions of n plus the sum of largest parts in all partitions of n plus the number of partitions of n plus n.

Original entry on oeis.org

1, 4, 10, 18, 33, 52, 87, 130, 202, 295, 436, 617, 887, 1226, 1709, 2327, 3173, 4244, 5691, 7505, 9907, 12917, 16822, 21690, 27947, 35685, 45506, 57625, 72836, 91500, 114760, 143143, 178235, 220908, 273268, 336670, 414041, 507298, 620455, 756398, 920470
Offset: 0

Views

Author

Omar E. Pol, Jul 29 2013

Keywords

Comments

a(n) is also the total number of toothpicks in a toothpick structure which represents a diagram of regions of the set of partitions of n, n >= 1. The number of horizontal toothpicks is A225596(n). The number of vertical toothpicks is A093694(n). The difference between vertical toothpicks and horizontal toothpicks is A000041(n) - n = A000094(n+1). The total area (or total number of cells) of the diagram is A066186(n). The number of parts in the k-th region is A194446(k). The area (or number of cells) of the k-th region is A186412(k). For the definition of "region" see A206437. For a minimalist version of the diagram (which can be transformed into a Dyck path) see A211978. See also A225600.

Examples

			For n = 7 the total number of parts in all partitions of 7 plus the sum of largest parts in all partitions of 7 plus the number of partitions of 7 plus 7 is equal to A006128(7) + A006128(7) + A000041(7) + 7 = 54 + 54 + 15 + 7 = 130. On the other hand the number of toothpicks in the diagram of regions of the set of partitions of 7 is equal to 130, so a(7) = 130.
.                               Diagram of regions
Partitions of 7                 and partitions of 7
.                                   _ _ _ _ _ _ _
7                               15 |_ _ _ _      |
4 + 3                              |_ _ _ _|_    |
5 + 2                              |_ _ _    |   |
3 + 2 + 2                          |_ _ _|_ _|_  |
6 + 1                           11 |_ _ _      | |
3 + 3 + 1                          |_ _ _|_    | |
4 + 2 + 1                          |_ _    |   | |
2 + 2 + 2 + 1                      |_ _|_ _|_  | |
5 + 1 + 1                        7 |_ _ _    | | |
3 + 2 + 1 + 1                      |_ _ _|_  | | |
4 + 1 + 1 + 1                    5 |_ _    | | | |
2 + 2 + 1 + 1 + 1                  |_ _|_  | | | |
3 + 1 + 1 + 1 + 1                3 |_ _  | | | | |
2 + 1 + 1 + 1 + 1 + 1            2 |_  | | | | | |
1 + 1 + 1 + 1 + 1 + 1 + 1        1 |_|_|_|_|_|_|_|
.
.                                   1 2 3 4 5 6 7
.
Illustration of initial terms as the number of toothpicks in a diagram of regions of the set of partitions of n, for n = 1..6:
.                                         _ _ _ _ _ _
.                                        |_ _ _      |
.                                        |_ _ _|_    |
.                                        |_ _    |   |
.                             _ _ _ _ _  |_ _|_ _|_  |
.                            |_ _ _    | |_ _ _    | |
.                   _ _ _ _  |_ _ _|_  | |_ _ _|_  | |
.                  |_ _    | |_ _    | | |_ _    | | |
.           _ _ _  |_ _|_  | |_ _|_  | | |_ _|_  | | |
.     _ _  |_ _  | |_ _  | | |_ _  | | | |_ _  | | | |
. _  |_  | |_  | | |_  | | | |_  | | | | |_  | | | | |
.|_| |_|_| |_|_|_| |_|_|_|_| |_|_|_|_|_| |_|_|_|_|_|_|
.
. 4    10     18       33         52          87
		

Crossrefs

Formula

a(n) = 2*A006128(n) + A000041(n) + n = A211978(n) + A133041(n) = A093694(n) + A006128(n) + n = A093694(n) + A225596(n).

A175595 Square array A(n,t), n>=0, t>=0, read by antidiagonals: A(n,t) is the number of t-core partitions of n.

Original entry on oeis.org

1, 1, 1, 1, 0, 2, 1, 1, 0, 3, 1, 1, 0, 0, 5, 1, 1, 2, 1, 0, 7, 1, 1, 2, 0, 0, 0, 11, 1, 1, 2, 3, 2, 0, 0, 15, 1, 1, 2, 3, 1, 1, 1, 0, 22, 1, 1, 2, 3, 5, 3, 2, 0, 0, 30, 1, 1, 2, 3, 5, 2, 3, 0, 0, 0, 42, 1, 1, 2, 3, 5, 7, 6, 3, 1, 0, 0, 56, 1, 1, 2, 3, 5, 7, 5, 5, 4, 2, 1, 0, 77, 1, 1, 2, 3, 5, 7, 11, 9, 7, 4, 2, 0, 0, 101
Offset: 0

Views

Author

Alois P. Heinz, Dec 03 2010

Keywords

Comments

A partition of n is a t-core partition if none of the hook numbers associated to the Ferrers-Young diagram is a multiple of t. See Chen reference for definitions.

Examples

			A(4,3) = 2, because there are 2 partitions of 4 such that no hook number is a multiple of 3:
   (1)  2 | 4 1
       +1 | 2
       +1 | 1
   -------+-----
   (2)  3 | 4 2 1
       +1 | 1
Square array A(n,t) begins:
   1,  1,  1,  1,  1,  1,  1,  1,  ...
   1,  0,  1,  1,  1,  1,  1,  1,  ...
   2,  0,  0,  2,  2,  2,  2,  2,  ...
   3,  0,  1,  0,  3,  3,  3,  3,  ...
   5,  0,  0,  2,  1,  5,  5,  5,  ...
   7,  0,  0,  1,  3,  2,  7,  7,  ...
  11,  0,  1,  2,  3,  6,  5, 11,  ...
  15,  0,  0,  0,  3,  5,  9,  8,  ...
		

References

  • Garvan, F. G., A number-theoretic crank associated with open bosonic strings. In Number Theory and Cryptography (Sydney, 1989), 221-226, London Math. Soc. Lecture Note Ser., 154, Cambridge Univ. Press, Cambridge, 1990.
  • James, Gordon; and Kerber, Adalbert, The Representation Theory of the Symmetric Group. Addison-Wesley Publishing Co., Reading, Mass., 1981.

Crossrefs

Rows n=0-1 give A000012, A060576.
Diagonal gives A000094(n+1) for n>0.
Upper diagonal gives A000041.
Lower diagonal (conjectured) gives A086642 for n>0.

Programs

  • Maple
    with(numtheory):
    A:= proc(n, t) option remember; `if`(n=0, 1,
          add(add(`if`(t=0 or irem(d, t)=0, d-d*t, d),
                  d=divisors(j))*A(n-j, t), j=1..n)/n)
        end:
    seq(seq(A(n, d-n), n=0..d), d=0..14);
    (From N. J. A. Sloane, Jun 21 2011: to get M terms of the series for t-core partitions:)
    M:=60;
    f:=proc(t) global M; local q,i,t1;
    t1:=1;
    for i from 1 to M+1 do
    t1:=series(t1*(1-q^(i*t))^t,q,M);
    t1:=series(t1/(1-q^i),q,M);
    od;
    t1;
    end;
    # then for example seriestolist(f(5));
  • Mathematica
    n = 13; f[t_] = (1-x^(t*k))^t/(1-x^k); f[0] = 1/(1-x^k);
    s[t_] := CoefficientList[ Series[ Product[ f[t], {k, 1, n}], {x, 0, n}], x]; m = Table[ PadRight[ s[t], n+1], {t, 0, n}]; Flatten[ Table[ m[[j+1-k, k]], {j, n+1}, {k, j}]] (* Jean-François Alcover, Jul 25 2011, after g.f. *)

Formula

G.f. of column t: Product_{i>=1} (1-x^(t*i))^t/(1-x^i).
Column t is the Euler transform of period t sequence [1, .., 1, 1-t, ..].

Extensions

Additional references from N. J. A. Sloane, Jun 21 2011

A034853 Triangle giving number of trees with n >= 3 nodes and diameter d >= 2.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 2, 5, 2, 1, 1, 3, 8, 7, 3, 1, 1, 3, 14, 14, 11, 3, 1, 1, 4, 21, 32, 29, 14, 4, 1, 1, 4, 32, 58, 74, 42, 19, 4, 1, 1, 5, 45, 110, 167, 128, 66, 23, 5, 1
Offset: 3

Views

Author

Keywords

Examples

			   1
   1    1
   1    1    1
   1    2    2    1
   1    2    5    2    1
   1    3    8    7    3    1
   1    3   14   14   11    3    1
   1    4   21   32   29   14    4    1
   1    4   32   58   74   42   19    4    1
   1    5   45  110  167  128   66   23    5    1
   1    5   65  187  367  334  219   88   29    5    1
   1    6   88  322  755  850  645  328  123   34    6    1
		

Crossrefs

Cf. A000055 (row sums), A283826, A000094 (diameter 4), A000147 (diameter 5), A000251 (diameter 6), A000550 (diameter 7), A000306 (diameter 8).

Formula

Reference gives recurrence.

A307517 Numbers with at least two not necessarily distinct prime factors less than the largest prime factor.

Original entry on oeis.org

12, 20, 24, 28, 30, 36, 40, 42, 44, 45, 48, 52, 56, 60, 63, 66, 68, 70, 72, 76, 78, 80, 84, 88, 90, 92, 96, 99, 100, 102, 104, 105, 108, 110, 112, 114, 116, 117, 120, 124, 126, 130, 132, 135, 136, 138, 140, 144, 148, 150, 152, 153, 154, 156, 160, 164, 165, 168
Offset: 1

Views

Author

Gus Wiseman, Apr 12 2019

Keywords

Comments

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are Heinz numbers of integer partitions with at least two not necessarily distinct parts less than the largest part. The enumeration of these partitions by sum is given by A000094.

Examples

			The sequence of terms together with their prime indices begins:
   12: {1,1,2}
   20: {1,1,3}
   24: {1,1,1,2}
   28: {1,1,4}
   30: {1,2,3}
   36: {1,1,2,2}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
   52: {1,1,6}
   56: {1,1,1,4}
   60: {1,1,2,3}
   63: {2,2,4}
   66: {1,2,5}
   68: {1,1,7}
   70: {1,3,4}
   72: {1,1,1,2,2}
   76: {1,1,8}
		

Crossrefs

Programs

  • Maple
    q:= n-> (l-> add(l[i][2], i=1..nops(l)-1)>1)(sort(ifactors(n)[2])):
    select(q, [$1..200])[];  # Alois P. Heinz, Apr 12 2019
  • Mathematica
    Select[Range[100],PrimeOmega[#/Power@@FactorInteger[#][[-1]]]>1&]

A325226 Number of prime factors of n that are less than the largest, counted with multiplicity.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 2, 0, 1, 1, 0, 0, 1, 0, 2, 1, 1, 0, 3, 0, 1, 0, 2, 0, 2, 0, 0, 1, 1, 1, 2, 0, 1, 1, 3, 0, 2, 0, 2, 2, 1, 0, 4, 0, 1, 1, 2, 0, 1, 1, 3, 1, 1, 0, 3, 0, 1, 2, 0, 1, 2, 0, 2, 1, 2, 0, 3, 0, 1, 1, 2, 1, 2, 0, 4, 0, 1, 0, 3, 1, 1, 1, 3, 0, 3, 1, 2, 1, 1, 1, 5, 0, 1, 2, 2, 0, 2, 0, 3, 2
Offset: 1

Views

Author

Gus Wiseman, Apr 12 2019

Keywords

Examples

			The prime factors of 300 are {2,2,3,5,5} of which {2,2,3} are less than the largest, so a(300) = 3.
		

Crossrefs

Positions of 0's are A000961. Positions of 1's are A325230. Positions of terms > 1 are A307517.

Programs

  • Mathematica
    Table[PrimeOmega[n/Power@@FactorInteger[n][[-1]]],{n,100}]
  • PARI
    A071178(n) = if(1==n, 0, factor(n)[omega(n), 2]);
    A325226(n) = (bigomega(n) - A071178(n)); \\ Antti Karttunen, Nov 17 2019

Formula

a(n) = A001222(n/A053585(n)).
a(n) = A001222(n) - A071178(n) = A062977(A108951(n)). - Antti Karttunen, Nov 17 2019

Extensions

Data section extended up to term a(105) by Antti Karttunen, Nov 17 2019

A307516 Numbers whose maximum prime index and minimum prime index differ by more than 1.

Original entry on oeis.org

10, 14, 20, 21, 22, 26, 28, 30, 33, 34, 38, 39, 40, 42, 44, 46, 50, 51, 52, 55, 56, 57, 58, 60, 62, 63, 65, 66, 68, 69, 70, 74, 76, 78, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 98, 99, 100, 102, 104, 105, 106, 110, 111, 112, 114, 115, 116, 117, 118
Offset: 1

Views

Author

Gus Wiseman, Apr 12 2019

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are Heinz numbers of integer partitions whose maximum and minimum parts differ by more than 1. The enumeration of these partitions by sum is given by A000094.
Differs from A069900 first at n = 43.

Examples

			The sequence of terms together with their prime indices begins:
   10: {1,3}
   14: {1,4}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   26: {1,6}
   28: {1,1,4}
   30: {1,2,3}
   33: {2,5}
   34: {1,7}
   38: {1,8}
   39: {2,6}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   46: {1,9}
   50: {1,3,3}
   51: {2,7}
   52: {1,1,6}
   55: {3,5}
		

Crossrefs

Positions of numbers > 1 in A243055. Complement of A000961 and A256617.

Programs

  • Maple
    with(numtheory):
    q:= n-> (l-> pi(l[-1])-pi(l[1])>1)(sort([factorset(n)[]])):
    select(q, [$2..200])[];  # Alois P. Heinz, Apr 12 2019
  • Mathematica
    Select[Range[100],PrimePi[FactorInteger[#][[-1,1]]]-PrimePi[FactorInteger[#][[1,1]]]>1&]
Showing 1-10 of 14 results. Next