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.

Previous Showing 11-20 of 76 results. Next

A006005 The odd prime numbers together with 1.

Original entry on oeis.org

1, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271
Offset: 1

Views

Author

Keywords

Comments

The odd noncomposite numbers. Also odd primes at the beginning of the 20th century. - Omar E. Pol, Mar 19 2008
Indices at which records occur in A002322. - Artur Jasinski, Apr 05 2008
Odd numbers n such that their largest divisor <= sqrt(n) equals 1. (See A161344). - Omar E. Pol, Aug 03 2009
All k for which cos((k-1)!*Pi/k) is negative. - Gerry Martens, Jun 01 2018

Crossrefs

Programs

  • Mathematica
    a = {}; max = 0; Do[w = CarmichaelLambda[k]; If[w > max, AppendTo[a, k]; max = k], {k, 1, 200}]; a (* Artur Jasinski, Apr 05 2008 *)
    Join[{1},Prime[Range[2,60]]] (* Harvey P. Dale, Apr 15 2019 *)
  • PARI
    prime(n)-(n==1) \\ Charles R Greathouse IV, Aug 26 2011

Formula

a(n) = A000040(n) - A000007(n) = A000040(n) - ((-1)^A000040(n)+1)/2. - Juri-Stepan Gerasimov, Oct 25 2009
a(n) = A175524(n) for n <= 30. - Reinhard Zumkeller, Jul 12 2011

A006002 a(n) = n*(n+1)^2/2.

Original entry on oeis.org

0, 2, 9, 24, 50, 90, 147, 224, 324, 450, 605, 792, 1014, 1274, 1575, 1920, 2312, 2754, 3249, 3800, 4410, 5082, 5819, 6624, 7500, 8450, 9477, 10584, 11774, 13050, 14415, 15872, 17424, 19074, 20825, 22680, 24642, 26714, 28899, 31200, 33620, 36162, 38829, 41624
Offset: 0

Views

Author

Keywords

Comments

a(n) is the largest number that is not the sum of distinct numbers of form kn+1, k >= 0. - David W. Wilson, Dec 11 1999
Sum of the nontriangular numbers between successive triangular numbers. 1, (2), 3, (4, 5), 6, (7, 8, 9), 10, (11, 12, 13, 14), 15, ... Sum of the terms in brackets. Or sum of n consecutive integers beginning with T(n) + 1, where T(n) = n(n+1)/2. - Amarnath Murthy, Aug 27 2005
Apparently this is also the splittance (as defined by Hammer & Simeone, 1977) of the Kneser graphs of the form K(n+3,2). - Felix Goldberg (felixg(AT)tx.technion.ac.il), Jul 13 2009
Row sums of triangle A159797. - Omar E. Pol, Jul 24 2009
The same results occur when one plots the points (1,3), (3,6), (6,10), (10,15), and so on, for all the triangular numbers and finds the area beneath. Take three consecutive triangular numbers and label them a, b, c; the area created is simply (b-a)*(b+c)/2. Thus for 6,10,15 the area beneath the line defined by the points (6,10) and (10,15) is (10-6)*(10+15)/2 = 50. - J. M. Bergot, Jun 28 2011
Let P = ab where a and b are nonequal prime numbers > 1. Let Q be the product of all divisors of P^n. Q can be expressed as P^k, where k = n*(n+1)^2/2. This follows from the fact that all divisors are of the form a^i*b^j, for i,j from 0 to n. An example is given below. In the more general case, where P is the product of m nonequal prime numbers, k = n*(n+1)^m/2. When m=3, the sequence is the same as A092364. - James A. Raymond & Douglas Raymond, Dec 04 2011
For n > 0: sum of n-th row in A014132, seen as a triangle read by rows. - Reinhard Zumkeller, Dec 12 2012
Partial sums of A005449. - Omar E. Pol, Jan 12 2013
a(n) is the sum of x (or y) coordinates for an n X n square lattice in the upper right quadrant of Z^2 whose corner points are (0, 0), (0, n), (n, 0), and (n, n). - Joseph Wheat, Feb 03 2018
a(n) is the number of permutations of [n+2] that contain exactly 2 elements which are not left-to-right minimal. E.g., the 9 permutations comprising a(2) are 2134, 2143, 3124, 3142, 4123, 4132, 2314, 2413, 3412. - Andy Niedermaier, May 07 2022

Examples

			Let P^n=6^2. The product of the divisors of 36 = 10077796 = 6^9, i.e., for n=2, k=9. - _James A. Raymond_ & Douglas Raymond, Dec 04 2011
		

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Cf. A002411: -a(-1-n).
Cf. A000914 (partial sums), A005449 (first differences).
Cf. similar sequences of the type n*(n+1)*(n+k)/2 listed in A267370.
A bisection of A330298.

Programs

Formula

G.f.: x*(x + 2)/(1 - x)^4. - Michael Somos, Jan 30 2004
a(n) = (n + 1) * binomial(n+1, 2). - Zerinvary Lajos, Jan 10 2006
a(n) = A035006(n+1)/4. - Johannes W. Meijer, Feb 04 2010
a(n) = 2*binomial(n+1, 2) + 3*binomial(n+1, 3). - Gary Detlefs, Jun 06 2010
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4). - Harvey P. Dale, Aug 14 2012
a(n) = A000292(n) + A000330(n). - Omar E. Pol, Jan 11 2013
a(n) = A045991(n+1)/2. - J. M. Bergot, Aug 10 2013
a(n) = Sum_{j=1..n} Sum_{i=1..j} (2*j - i + 1). - Wesley Ivan Hurt, Nov 17 2014
a(n) = Sum_{i=0..n} n*(n - i) + i. - Bruno Berselli, Jan 13 2016
a(n) = t(n, A000217(n)), where t(h,k) = A000217(h) + h*k. - Bruno Berselli, Feb 28 2017
Sum_{n>0} 1/a(n) = 4 - Pi^2/3. - Jaume Oliver Lafont, Jul 11 2017 [corrected by Amiram Eldar, Jan 28 2022]
E.g.f.: exp(x)*x*(4 + 5*x + x^2)/2. - Stefano Spezia, May 21 2021
Sum_{n>=1} (-1)^(n+1)/a(n) = Pi^2/6 + 4*log(2) - 4. - Amiram Eldar, Jan 28 2022
From J.S. Seneschal, Jun 27 2024: (Start)
a(n) = (A002378(n)^2/2)/n = (n+1)/2 * A002378(n).
a(n) = A027480(n) - A000217(n). (End)

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

Original entry on oeis.org

1, 2, 6, 10, 19, 28, 44, 60, 85, 110, 146, 182, 231, 280, 344, 408, 489, 570, 670, 770, 891, 1012, 1156, 1300, 1469, 1638, 1834, 2030, 2255, 2480, 2736, 2992, 3281, 3570, 3894, 4218, 4579, 4940, 5340, 5740, 6181, 6622, 7106, 7590, 8119, 8648, 9224, 9800
Offset: 0

Views

Author

N. J. A. Sloane, Winston C. Yang (yang(AT)math.wisc.edu)

Keywords

Comments

Alkane (or paraffin) numbers l(6,n).
Dimension of the space of homogeneous degree n polynomials in (x1, y1, x2, y2) invariant under permutation of variables x1<->y1, x2<->y2.
Also multidigraphs with loops on 2 nodes with n arcs (see A138107). - Vladeta Jovovic, Dec 27 1999
Euler transform of finite sequence [2,3,0,-1]. - Michael Somos, Mar 17 2004
a(n-2) is the number of plane partitions with trace 2. - Michael Somos, Mar 17 2004
With offset 4, a(n) is the number of bracelets with n beads, 3 of which are red, 1 of which is blue. For odd n, a(n) = C(n-1,3)/2. For even n, a(n) = C(n-1,3)/2 +(n-2)/4. For n >= 6, with K = (n-1)(n-2)/((n-5)(n-4)), for odd n, a(n) = K*a(n-2). For even n, a(n) = K*a(n-2) -(n-2)/(n-5). - Washington Bomfim, Aug 05 2008
Equals (1,2,3,4,...) convolved with (1,0,3,0,5,...). - Gary W. Adamson, Feb 16 2009
Equals row sums of triangle A177878.
Equals (1/2)*((1, 4, 10, 20, 35, 56, ...) + (1, 0, 2 0, 3, 0, 4, ...)).
From Ctibor O. Zizka, Nov 21 2014: (Start)
With offset 4, a(n) is the number of different patterns of the 2-color 4-partition of n.
P(n)_(k;t) gives the number of different patterns of the t-color, k-partition of n.
P(n;i;j) = Sum(r=1..m) c_(i,j)*v_r*F_r(X_1,...,X_i).
m partition number of i.
c_(i,j) number of different coloring patterns on the r-th form (X_1,...,X_i) of i-partition with j-colors.
v_r number of i-partitions of n of the r-th form (X_1,...,X_i).
F_r(X_1,...,X_i) number of different patterns of the r-th form i-partition of n.
Some simple results:
P(1)(k;t)=1, P(2)(k;t)=2, P(3)(k;t)=4, P(4)(k;t)=11, etc.
P(n;1;1) = P(n;n;n) = 1 for all n;
P(n;2;2) = floor(n/2) (A004526);
P(n;3;2) = (n*n - 2*n + n mod 2)/4 (A002620).
This sequence is a(n) = P(n;4;2).
2-coloring of 4-partition is (A,B,A,B) or (B,A,B,A).
Each 4-partition of n has one of the form (X_1,X_1,X_1,X_1),(X_1,X_1,X_1,X_2), (X_1,X_1,X_2,X_2),(X_1,X_1,X_2,X_3),(X_1,X_2,X_3,X_4).
The number of forms is m=5 which is the partition number of k=4.
Partition form (X_1,X_1,X_1,X_1) gives 1 pattern ((X_1A,X_1B,X_1A,X_1B), (X_1,X_1,X_1,X_2) gives 2 patterns, (X_1,X_1,X_2,X_2) gives 4 patterns, (X_1,X_1,X_2,X_3) gives 6 patterns and (X_1,X_2,X_3,X_4) gives 12 patterns.
Thus a(n) = P(n;4;2) = 1*1*v_1 + 1*2*v_2 + 1*4*v_3 + 1*6*v_4 + 1*12*v_5 where v_r is the number of different 4-partitions of the r-th form (X_1,X_2,X_3,X_4) for a given n.
Example:
The 4-partitions of 8 are (2,2,2,2), (1,1,1,5), (1,1,3,3), (1,1,2,4), and (1,2,2,3):
(2,2,2,2) 1 pattern
(1,1,1,5), (1,1,5,1) 2 patterns
(1,1,3,3), (1,3,3,1), (3,1,1,3), (1,3,1,3) 4 patterns
(1,1,2,4), (1,1,4,2), (1,2,1,4), (1,2,4,1), (1,4,1,2), (2,1,1,4) 6 patterns
(2,2,1,3), (2,2,3,1), (2,1,2,3), (2,1,3,2), (2,3,2,1), (1,2,2,3) 6 patterns
Thus a(8) = P(8,4,2) = 1 + 2 + 4 + 6 + 6 = 19. (End)
a(n) = length of run n+2 of consecutive 1's in A254338. - Reinhard Zumkeller, Feb 27 2015
Take a chessboard of (n+2) X (n+2) unit squares in which the a1 square is black. a(n) is the number of composite squares having black unit squares on their vertices. - Ivan N. Ianakiev, Jul 19 2018
a(n) is the number of 1423-avoiding odd Grassmannian permutations of size n+2. Avoiding any of the patterns 2314 or 3412 gives the same sequence. - Juan B. Gil, Mar 09 2023

Examples

			a(2) = 6, since ( x1*y1, x2*y2, x1*x1+y1*y1, x2*x2+y2*y2, x1*x2+y1*y2, x1*y2+x2*y1 ) are a basis for homogeneous quadratic invariant polynomials.
		

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
  • L. Smith, Polynomial Invariants of Finite Groups, A K Peters, 1995, p. 96.

Crossrefs

Cf. A177878.
Partial sums of A008794 (without 0). - Bruno Berselli, Aug 30 2013

Programs

  • Haskell
    Following Gary W. Adamson.
    import Data.List (inits, intersperse)
    a005993 n = a005994_list !! n
    a005993_list = map (sum . zipWith (*) (intersperse 0 [1, 3 ..]) . reverse) $
                       tail $ inits [1..]
    -- Reinhard Zumkeller, Feb 27 2015
    
  • Magma
    I:=[1,2,6,10,19,28]; [n le 6 select I[n] else 2*Self(n-1)+Self(n-2)-4*Self(n-3)+Self(n-4)+2*Self(n-5)-Self(n-6): n in [1..60]]; // Vincenzo Librandi, Jul 19 2015
    
  • Maple
    g := proc(n) local i; add(floor(i/2)^2,i=1..n+1) end: # Joseph S. Riel (joer(AT)k-online.com), Mar 22 2002
    a:= n-> (Matrix([[1, 0$3, -1, -2]]).Matrix(6, (i,j)-> if (i=j-1) then 1 elif j=1 then [2, 1, -4, 1, 2, -1][i] else 0 fi)^n)[1,1]; seq (a(n), n=0..44); # Alois P. Heinz, Jul 31 2008
  • Mathematica
    CoefficientList[Series[(1+x^2)/((1-x)^2*(1-x^2)^2),{x,0,44}],x]  (* Jean-François Alcover, Apr 08 2011 *)
    LinearRecurrence[{2,1,-4,1,2,-1},{1,2,6,10,19,28},50] (* Harvey P. Dale, Feb 20 2012 *)
  • PARI
    a(n)=polcoeff((1+x^2)/(1-x)^2/(1-x^2)^2+x*O(x^n),n)
    
  • PARI
    a(n) = (binomial(n+3, n) + (1-n%2)*binomial((n+2)/2, n>>1))/2 \\ Washington Bomfim, Aug 05 2008
    
  • PARI
    a = vector(50); a[1]=1; a[2]=2;
    for(n=3, 50, a[n] = ((n+2)*a[n-2]+2*a[n-1]-n)/(n-2)); a \\ Gerry Martens, Jun 03 2018
    
  • Sage
    def A005993():
        a, b, to_be = 0, 0, True
        while True:
            yield (a*(a*(2*a+9)+13)+b*(b+1)*(2*b+1)+6)//6
            if to_be: b += 1
            else: a += 1
            to_be = not to_be
    a = A005993()
    [next(a) for  in range(48)] # _Peter Luschny, May 04 2016

Formula

l(c, r) = 1/2 C(c+r-3, r) + 1/2 d(c, r), where d(c, r) is C((c + r - 3)/2, r/2) if c is odd and r is even, 0 if c is even and r is odd, C((c + r - 4)/2, r/2) if c is even and r is even, C((c + r - 4)/2, (r - 1)/2) if c is odd and r is odd.
G.f.: (1+x^2)/((1-x)^2*(1-x^2)^2) = (1+x^2)/((1+x)^2*(x-1)^4) = (1/(1-x)^4 +1/(1-x^2)^2)/2.
a(2n) = (n+1)(2n^2+4n+3)/3, a(2n+1) = (n+1)(n+2)(2n+3)/3. a(-4-n) = -a(n).
From Yosu Yurramendi, Sep 12 2008: (Start)
a(n+1) = a(n) + A008794(n+3) with a(1)=1.
a(n) = A027656(n) + 2*A006918(n).
a(n+2) = a(n) + A000982(n+2) with a(1)=1, a(2)=2. (End)
a(n) = 2*a(n-1) + a(n-2) - 4*a(n-3) + a(n-4) + 2*a(n-5) - a(n-6). - Jaume Oliver Lafont, Dec 05 2008
a(n) = (n^3 + 6*n^2 + 11*n + 6)/12 + ((n+2)/4)[n even] (the bracket means that the second term is added if and only if n is even). - Benoit Jubin, Mar 31 2012
a(n) = (1/12)*n*(n+1)*(n+2) + (1/4)*(n+1)*(1/2)*(1-(-1)^n), with offset 1. - Yosu Yurramendi, Jun 20 2013
a(n) = Sum_{i=0..n+1} ceiling(i/2) * round(i/2) = Sum_{i=0..n+2} floor(i/2)^2. - Bruno Berselli, Aug 30 2013
a(n) = (n + 2)*(3*(-1)^n + 2*n^2 + 8*n + 9)/24. - Ilya Gutkovskiy, May 04 2016
Recurrence formula: a(n) = ((n+2)*a(n-2)+2*a(n-1)-n)/(n-2), a(1)=1, a(2)=2. - Gerry Martens, Jun 10 2018
E.g.f.: exp(-x)*(6 - 3*x + exp(2*x)*(18 + 39*x + 18*x^2 + 2*x^3))/24. - Stefano Spezia, Feb 23 2020
a(n) = Sum_{j=0..n/2} binomial(c+2*j-1,2*j)*binomial(c+n-2*j-1,n-2*j) where c=2. For other values of c we have: A008619 (c=1), A005995 (c=3), A018211 (c=4), A018213 (c=5), A062136 (c=6). - Miquel A. Fiol, Sep 24 2024

A000625 Number of n-node steric rooted ternary trees; number of n carbon alkyl radicals C(n)H(2n+1) taking stereoisomers into account.

Original entry on oeis.org

1, 1, 1, 2, 5, 11, 28, 74, 199, 551, 1553, 4436, 12832, 37496, 110500, 328092, 980491, 2946889, 8901891, 27012286, 82300275, 251670563, 772160922, 2376294040, 7333282754, 22688455980, 70361242924, 218679264772, 681018679604, 2124842137550, 6641338630714, 20792003301836
Offset: 0

Views

Author

Keywords

Comments

Nodes are unlabeled, each node has out-degree <= 3.
Steric, or including stereoisomers, means that the children of a node are taken in a certain cyclic order. If the children are rotated it is still the same tree, but any other permutation yields a different tree. See A000598 for the analogous sequence with stereoisomers not counted.
Other descriptions of this sequence: steric planted trees with n nodes; total number of monosubstituted alkanes C(n)H(2n+1)-X with n carbon atoms.
Let the entries in the nine columns of Blair and Henze's Table I (JACS 54 (1932), p. 1098) be denoted by Ps(n), Pn(n), Ss(n), Sn(n), Ts(n), Tn(n), As(n), An(n), T(n) respectively (here P = Primary, S = Secondary, T = Tertiary, s = stereoisomers, n = non-stereoisomers and the last column T(n) gives total).
Then Ps (and As) = A000620, Pn (and An, Sn) = A000621, Ss = A000622, Ts = A000623, Tn = A000624, T = this sequence. Recurrences generating these sequences are given in the Maple program in A000620.

References

  • J. K. Percus, Combinatorial Methods, Lecture Notes, 1967-1968, Courant Institute, New York University, 212pp. See pp. 64-65.
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Programs

  • Maple
    A := 1; f := proc(n) global A; coeff(series( 1+(1/3)*x*(A^3+2*subs(x=x^3,A)), x, n+1), x, n); end; for n from 1 to 50 do A := series(A+f(n)*x^n,x,n +1); od: A;
    A000625 := proc(n)
        local j,i,a ;
        option remember;
        if n <= 1 then
            1 ;
        else
            a :=0 ;
            for j from 1 to n-1 do
                a := a+ j*procname(j)*add(procname(i)*procname(n-j-i-1),i=0..n-j-1) ;
            end do:
            if modp(n-1,3) = 0 then
                a := a+2*(n-1)*procname((n-1)/3)/3 ;
            end if;
            a/ (n-1) ;
        end if;
    end proc:
    seq(A000625(n),n=0..30) ;
  • Mathematica
    m = 31; c[0] = 1; gf[x_] = Sum[c[k] x^k, {k, 0, m}]; cc = Array[c, m]; coes = CoefficientList[ Series[gf[x] - 1 - (x*(gf[x]^3 + 2*gf[x^3])/3), {x, 0, m}], x] // Rest; Prepend[cc /. Solve[ Thread[ coes == 0], cc][[1]], 1]
    (* Jean-François Alcover, Jun 24 2011 *)
    a[0] = a[1] = 1; a[n_Integer] := a[n] = (Sum[j*a[j]*Sum[a[i]*a[n-i-j-1], {i, 0, n-j-1}], {j, 1, n-1}] + (2/3)*(n-1)*a[(n-1)/3])/(n-1); a[] = 0; Table[a[n], {n, 0, 31}] (* _Jean-François Alcover, Apr 21 2016, after Emeric Deutsch *)
    terms = 32; A[] = 0; Do[A[x] = Normal[1 + x*(A[x]^3 + 2*A[x^3])/3 + O[x]^terms], terms]; CoefficientList[A[x], x] (* Jean-François Alcover, Apr 22 2016, updated Jan 11 2018 *)
  • PARI
    a(n) = if(n, my(v=vector(n+1)); v[1]=1; v[2]=1; for(k=1, n-1, v[k+2] = sum(j=1, k, j*v[j+1]*(sum(i=0, k-j, v[i+1]*v[k-j-i+1])))/k + (2/3)*if(k%3, 0, v[k/3+1])); v[n+1], 1) \\ Jianing Song, Feb 17 2019

Formula

G.f. A(x) = 1 + x + x^2 + 2*x^3 + 5*x^4 + 11*x^5 + 28*x^6 + ... satisfies A(x) = 1 + x*(A(x)^3 + 2*A(x^3))/3.
a(0) = a(1) = 1; a(n+1) = 2*a(n/3)/3 + (Sum_{j=1..n} j*a(j)*(Sum_{i=1..n-j} a(i)*a(n-j-i)))/n for n >= 1, where a(k) = 0 if k not an integer (essentially eq (4) in the Robinson et al. paper). - Emeric Deutsch, May 16 2004
a(n) ~ c * b^n / n^(3/2), where b = 3.287112055584474991259... (see A239803), c = 0.346304267394183622435... (see A239810). - Vaclav Kotesovec, Mar 27 2014

Extensions

Additional comments from Bruce Corrigan, Nov 04 2002

A034827 a(n) = 2*binomial(n,4).

Original entry on oeis.org

0, 0, 0, 0, 2, 10, 30, 70, 140, 252, 420, 660, 990, 1430, 2002, 2730, 3640, 4760, 6120, 7752, 9690, 11970, 14630, 17710, 21252, 25300, 29900, 35100, 40950, 47502, 54810, 62930, 71920, 81840, 92752, 104720, 117810, 132090, 147630, 164502, 182780
Offset: 0

Views

Author

Keywords

Comments

Also number of ways to insert two pairs of parentheses into a string of n-4 letters (allowing empty pairs of parentheses). E.g., there are 30 ways for 2 letters. Cf. A002415.
2,10,30,70, ... gives orchard crossing number of complete graph K_n. - Ralf Stephan, Mar 28 2003
If Y is a 2-subset of an n-set X then, for n>=4, a(n-1) is the number of 4-subsets and 5-subsets of X having exactly one element in common with Y. - Milan Janjic, Dec 28 2007
Middle column of table on p. 6 of Feder and Garber. - Jonathan Vos Post, Apr 23 2009
Number of pairs of non-intersecting lines when each of n points around a circle is joined to every other point by straight lines. A pair of lines is considered non-intersecting if the lines do not intersect in either the interior or the boundary of a circle. - Melvin Peralta, Feb 05 2016
From a(2), convolution of the oblong numbers (A002378) with the nonnegative numbers (A001477). - Bruno Berselli, Oct 24 2016
Also the number of 3-cycles in the n-triangular honeycomb bishop graph. - Eric W. Weisstein, Aug 10 2017

References

  • Charles Jordan, Calculus of Finite Differences, Chelsea, 1965, p. 449.
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).

Crossrefs

A diagonal of A088617.
Partial sums of A007290.
Cf. A051843 (4-cycles in the triangular honeycomb bishop graph), A290775 (5-cycles), A290779 (6-cycles).

Programs

Formula

a(n) = A096338(2*n-6) = 2*A000332(n), n>2. - R. J. Mathar, Nov 08 2010
G.f.: 2*x^4/(1-x)^5. - Colin Barker, Feb 29 2012
a(n) = Sum_{k=1..n-3} ( Sum_{i=1..k} i*(2*k-n+4) ). - Wesley Ivan Hurt, Sep 26 2013
E.g.f.: x^4*exp(x)/12. - G. C. Greubel, Feb 23 2017
From Amiram Eldar, Jul 19 2022: (Start)
Sum_{n>=4} 1/a(n) = 2/3.
Sum_{n>=4} (-1)^n/a(n) = 16*log(2) - 32/3. (End)

A000103 Number of n-node triangulations of sphere in which every node has degree >= 4.

Original entry on oeis.org

0, 0, 1, 1, 2, 5, 12, 34, 130, 525, 2472, 12400, 65619, 357504, 1992985, 11284042, 64719885, 375126827, 2194439398, 12941995397, 76890024027, 459873914230, 2767364341936, 16747182732792
Offset: 4

Views

Author

Keywords

Examples

			a(4)=0, a(5)=0 because the tetrahedron and the 5-bipyramid both have vertices of degree 3. a(6)=1 because of the A000109(6)=2 triangulations with 6 nodes (abcdef) the one corresponding to the octahedron (bcde,afec,abfd,acfe,adfb,bedc) has no node of degree 3, whereas the other triangulation (bcdef,afec,abed,ace,adcbf,aeb) has 2 such nodes.
		

References

  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Cf. all triangulations: A000109, triangulations with minimum degree 5: A081621.

Extensions

More terms from Hugo Pfoertner, Mar 24 2003
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm) from the Surftri web site, May 05 2007

A000109 Number of simplicial polyhedra with n vertices; simple planar graphs with n vertices and 3n-6 edges; maximal simple planar graphs with n vertices; planar triangulations with n vertices; triangulations of the sphere with n vertices; 3-connected cubic planar graphs on 2n-4 vertices.

Original entry on oeis.org

1, 1, 1, 2, 5, 14, 50, 233, 1249, 7595, 49566, 339722, 2406841, 17490241, 129664753, 977526957, 7475907149, 57896349553, 453382272049, 3585853662949, 28615703421545
Offset: 3

Views

Author

Keywords

Comments

Every planar triangulation on n >= 4 vertices is 3-connected (the connectivity either 3, 4, or 5) and its dual graph is a 3-connected cubic planar graph on 2n-4 vertices. - Manfred Scheucher, Mar 17 2023

References

  • G. Brinkmann and Brendan McKay, in preparation. [Looking at http://users.cecs.anu.edu.au/~bdm/publications.html, there are a few papers with Brinkmann that seem relevant, in particular #126 but also #97, 81, 158. Perhaps the right one is 126.]
  • M. B. Dillencourt, Polyhedra of small orders and their Hamiltonian properties. Tech. Rep. 92-91, Info. and Comp. Sci. Dept., Univ. Calif. Irvine, 1992.
  • C. F. Earl and L. J. March, Architectural applications of graph theory, pp. 327-355 of R. J. Wilson and L. W. Beineke, editors, Applications of Graph Theory. Academic Press, NY, 1979.
  • B. Grünbaum, Convex Polytopes. Wiley, NY, 1967, p. 424.
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Formula

From William P. Orrick, Apr 07 2021: (Start)
a(n) >= A007816(n-3)/n! = binomial(n,2)*(4*n-11)!/(n!*(3*n-6)!) for all n >= 4.
a(n) ~ A007816(n-3)/n! = binomial(n,2)*(4*n-11)!/(n!*(3*n-6)!) ~ (1/64)*sqrt(1/(6*Pi))*n^(-7/2)*(256/27)^(n-2), using the theorem that the automorphism group of a maximal planar graph is almost certainly trivial as n gets large. (Tutte)
(End)

Extensions

Extended by Brendan McKay and Gunnar Brinkmann using their program "plantri", Dec 19 2000
Definition clarified by Manfred Scheucher, Mar 17 2023

A006011 a(n) = n^2*(n^2 - 1)/4.

Original entry on oeis.org

0, 0, 3, 18, 60, 150, 315, 588, 1008, 1620, 2475, 3630, 5148, 7098, 9555, 12600, 16320, 20808, 26163, 32490, 39900, 48510, 58443, 69828, 82800, 97500, 114075, 132678, 153468, 176610, 202275, 230640, 261888, 296208, 333795, 374850, 419580, 468198
Offset: 0

Views

Author

Keywords

Comments

Products of two consecutive triangular numbers (A000217).
a(n) is the number of Lyndon words of length 4 on an n-letter alphabet. A Lyndon word is a primitive word that is lexicographically earliest in its cyclic rotation class. For example, a(2)=3 counts 1112, 1122, 1222. - David Callan, Nov 29 2007
For n >= 2 this is the second rightmost column of A163932. - Johannes W. Meijer, Oct 16 2009
Partial sums of A059270. - J. M. Bergot, Jun 27 2013
Using the integers, triangular numbers, and squares plot the points (A001477(n),A001477(n+1)), (A000217(n), A000217(n+1)), and (A000290(n),A000290(n+1)) to create the vertices of a triangle. One-half the area of this triangle = a(n). - J. M. Bergot, Aug 01 2013
a(n) is the Wiener index of the triangular graph T(n+1). - Emeric Deutsch, Aug 26 2013

Examples

			From _Bruno Berselli_, Aug 29 2014: (Start)
After the zeros, the sequence is provided by the row sums of the triangle:
   3;
   4, 14;
   5, 16, 39;
   6, 18, 42,  84;
   7, 20, 45,  88, 155;
   8, 22, 48,  92, 160, 258;
   9, 24, 51,  96, 165, 264, 399;
  10, 26, 54, 100, 170, 270, 406, 584;
  11, 28, 57, 104, 175, 276, 413, 592, 819;
  12, 30, 60, 108, 180, 282, 420, 600, 828, 1110; etc.,
where T(r,c) = c*(c^2+r+1), with r = row index, c = column index, r >= c > 0. (End)
		

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Programs

  • Magma
    [n^2*(n^2-1)/4: n in [0..40]]; // Vincenzo Librandi, Sep 14 2011
    
  • Maple
    A006011 := proc(n)
        n^2*(n^2-1)/4 ;
    end proc: # R. J. Mathar, Nov 29 2015
  • Mathematica
    Table[n^2 (n^2 - 1)/4, {n, 0, 38}]
    Binomial[Range[20]^2, 2]/2 (* Eric W. Weisstein, Sep 08 2017 *)
    LinearRecurrence[{5, -10, 10, -5, 1}, {0, 3, 18, 60, 150}, 20] (* Eric W. Weisstein, Sep 08 2017 *)
    CoefficientList[Series[-3 x (1 + x)/(-1 + x)^5, {x, 0, 20}], x] (* Eric W. Weisstein, Sep 08 2017 *)
    Join[{0},Times@@@Partition[Accumulate[Range[0,40]],2,1]] (* Harvey P. Dale, Aug 08 2025 *)
  • PARI
    a(n)=binomial(n^2,2)/2 \\ Charles R Greathouse IV, Jun 27 2013

Formula

G.f.: 3*(1 + x) / (1 - x)^5.
a(n) = (n-1)*n/2 * n*(n+1)/2 = A000217(n-1)*A000217(n) = 1/2*(n^2-1)*n^2/2 = 1/2*A000217(n^2-1). - Alexander Adamchuk, Apr 13 2006
a(n) = 3*A002415(n) = A047928(n-1)/4 = A083374(n-1)/2 = A008911(n)*3/2. - Zerinvary Lajos, May 09 2007
a(n) = (A126274(n) - A000537(n+1))/2. - Enrique Pérez Herrero, Mar 11 2013
Ceiling(sqrt(a(n)) + sqrt(a(n-1)))/2 = A000217(n). - Richard R. Forberg, Aug 14 2013
a(n) = Sum_{i=1..n-1} i*(i^2+n) for n > 1 (see Example section). - Bruno Berselli, Aug 29 2014
Sum_{n>=2} 1/a(n) = 7 - 2*Pi^2/3 = 0.42026373260709425411... . - Vaclav Kotesovec, Apr 27 2016
a(n) = A000217(n^2+n) - A000217(n)*A000217(n+1). - Charlie Marion, Feb 15 2020
Sum_{n>=2} (-1)^n/a(n) = Pi^2/3 - 3. - Amiram Eldar, Nov 02 2021
E.g.f.: exp(x)*x^2*(6 + 6*x + x^2)/4. - Stefano Spezia, Mar 12 2024

A006000 a(n) = (n+1)*(n^2+n+2)/2; g.f.: (1 + 2*x^2) / (1 - x)^4.

Original entry on oeis.org

1, 4, 12, 28, 55, 96, 154, 232, 333, 460, 616, 804, 1027, 1288, 1590, 1936, 2329, 2772, 3268, 3820, 4431, 5104, 5842, 6648, 7525, 8476, 9504, 10612, 11803, 13080, 14446, 15904, 17457, 19108, 20860, 22716, 24679, 26752, 28938, 31240, 33661, 36204, 38872, 41668, 44595, 47656, 50854, 54192
Offset: 0

Views

Author

Keywords

Comments

Enumerates certain paraffins.
a(n) is the (n+1)st (n+3)-gonal number. - Floor van Lamoen, Oct 20 2001
Sum of n terms of an arithmetic progression with the first term 1 and the common difference n: a(1)=1, a(2) = 1+3, a(3) = 1+4+7, a(4) = 1+5+9+13, etc. - Amarnath Murthy, Mar 25 2004
This is identical to: first triangular number A000217, 2nd square number A000290, 3rd pentagonal number A000326, 4th hexagonal number A000384, 5th heptagonal number A000566, 6th octagonal number A000567, ..., (n+1)-th (n+3)-gonal number = main diagonal of rectangular array T(n,k) of polygonal numbers, by diagonals, referred to in A086271. - Jonathan Vos Post, Dec 19 2007
Also (n + 1)! times the determinant of the n X n matrix given by m(i,j) = (i+1)/i if i=j and otherwise 1. For example, (6 + 1)!*Det[{{2,1,1,1,1,1}, {1,3/2,1,1,1,1},{1,1,4/3,1,1,1}, {1,1,1,5/4,1,1}, {1,1,1,1,6/5,1}, {1,1,1,1,1,7/6}}] = 154 = a(6). - John M. Campbell, May 20 2011
a(n-1) = N_2(n), n>=1, is the number of 2-faces of n planes in generic position in three-dimensional space. See comment under A000125 for general arrangement. Comment to Arnold's problem 1990-11, see the Arnold reference, p. 506. - Wolfdieter Lang, May 27 2011
For n>2, a(n) is 2 * (average cycle weight of primitive Hamiltonian cycles on a simply weighted K_n) (see link). - Jon Perry, Nov 23 2014
a(n) is the partial sums of A104249. - J. M. Bergot, Dec 28 2014
Sum of the numbers in the 1st column of an n X n square array whose elements are the numbers from 1..n^2, listed in increasing order by rows. - Wesley Ivan Hurt, May 17 2021
From Enrique Navarrete, Mar 27 2023: (Start)
a(n) is the number of ordered set partitions of an (n+1)-set into 2 sets such that the first set has 0, 1, or 2 elements, the second set has no restrictions, and we choose an element from the second set. For n=4, the a(4) = 55 set partitions of [5] are the following (where the element selected from the second set is in parentheses):
{ }, {(1), 2, 3, 4, 5} (5 of these);
{1}, {(2), 3, 4, 5} (20 of these);
{1, 2}, {(3), 4, 5} (30 of these). (End)

References

  • V. I. Arnold (ed.), Arnold's Problems, Springer, 2004, comments on Problem 1990-11 (p. 75), pp. 503-510. Numbers N_2.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Cf. A000124.

Programs

Formula

a(n) = Sum_{j=1..n+1} (binomial(0,0*j) + binomial(n+1,2)). - Zerinvary Lajos, Jul 25 2006
a(n-1) = n + (n^3 - n^2)/2 = n + n*T(n-1) where T(n-1) is a triangular number, n >= 1. - William A. Tedeschi, Aug 22 2010
a(n) = A002817(n)*4/n for n > 0. - Jon Perry, Nov 21 2014
E.g.f.: (1 + x)*(2 + 4*x + x^2)*exp(x)/2. - Robert Israel, Nov 24 2014
a(n) = A057145(n+3,n+1). - R. J. Mathar, Jul 28 2016
a(n) = A000124(n) * (n+1). - Alois P. Heinz, Aug 31 2023

A006007 4-dimensional analog of centered polygonal numbers: a(n) = n(n+1)*(n^2+n+4)/12.

Original entry on oeis.org

0, 1, 5, 16, 40, 85, 161, 280, 456, 705, 1045, 1496, 2080, 2821, 3745, 4880, 6256, 7905, 9861, 12160, 14840, 17941, 21505, 25576, 30200, 35425, 41301, 47880, 55216, 63365, 72385, 82336, 93280, 105281, 118405, 132720, 148296, 165205, 183521
Offset: 0

Views

Author

Keywords

References

  • S. M. Losanitsch, Die Isomerie-Arten bei den Homologen der Paraffin-Reihe, Chem. Ber. 30 (1897), 1917-1926.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Programs

  • Magma
    [n*(n+1)*(n^2+n+4)/12: n in [0..60]]; // Vincenzo Librandi, Apr 26 2011
    
  • Mathematica
    f[n_]:=n^3;lst={};s=0;Do[s+=(f[n]+f[n+1]+f[n+2]);AppendTo[lst,s/9],{n,0,6!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 03 2009 *)
    Table[2Binomial[n+2,4]+Binomial[n+1,2],{n,0,40}] (* or *) LinearRecurrence[{5,-10,10,-5,1},{0,1,5,16,40},40] (* Harvey P. Dale, Sep 30 2011 *)
  • PARI
    a(n)=n*(n+1)*(n^2+n+4)/12 \\ Charles R Greathouse IV, Sep 24 2015

Formula

G.f.: (1+x^2)/(1-x)^5.
a(n) = 2*binomial(n + 2, 4) + binomial(n + 1, 2).
a(n) = A061316(n)/3 = A061315(n, 3) = sqrt(A061318(n)-A061316(n)).
a(0)=0, a(1)=1, a(2)=5, a(3)=16, a(4)=40, a(n) = 5*a(n-1) - 10*a(n-2) + 10*a(n-3) - 5*a(n-4) + a(n-5). - Harvey P. Dale, Sep 30 2011
For n>0, a(n) = (A000217(n-1)^2 + A000217(n)^2 + A000217(n+1)^2 - 1)/9. - Richard R. Forberg, Dec 25 2013
Sum_{n>=1} 1/a(n) = 15/4 - tanh(sqrt(15)*Pi/2)*Pi*sqrt(3/5). - Amiram Eldar, Aug 23 2022
E.g.f.: exp(x)*(12 + 48*x + 42*x^2 + 12*x^3 + x^4)/12. - Stefano Spezia, Aug 31 2023

Extensions

More terms from Henry Bottomley, Apr 24 2001
Previous Showing 11-20 of 76 results. Next