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-6 of 6 results.

A015195 Sum of Gaussian binomial coefficients for q=9.

Original entry on oeis.org

1, 2, 12, 184, 9104, 1225248, 540023488, 652225844096, 2584219514040576, 28081351726592246272, 1001235747932175990213632, 97915621602690773814148184064, 31420034518763282871588038742544384, 27654326463468067495668136467306727743488
Offset: 0

Views

Author

Keywords

References

  • J. Goldman and G.-C. Rota, The number of subspaces of a vector space, pp. 75-83 of W. T. Tutte, editor, Recent Progress in Combinatorics. Academic Press, NY, 1969.
  • I. P. Goulden and D. M. Jackson, Combinatorial Enumeration. Wiley, NY, 1983, p. 99.
  • M. Sved, Gaussians and binomials, Ars. Combinatoria, 17A (1984), 325-351.

Crossrefs

Row sums of triangle A022173.

Programs

  • Mathematica
    Total/@Table[QBinomial[n, m, 9], {n, 0, 20}, {m, 0, n}] (* Vincenzo Librandi, Nov 01 2012 *)
    Flatten[{1,RecurrenceTable[{a[n]==2*a[n-1]+(9^(n-1)-1)*a[n-2],a[0]==1,a[1]==2},a,{n,1,15}]}] (* Vaclav Kotesovec, Aug 21 2013 *)

Formula

a(n) = 2*a(n-1)+(9^(n-1)-1)*a(n-2), (Goldman + Rota, 1969). - Vaclav Kotesovec, Aug 21 2013
a(n) ~ c * 9^(n^2/4), where c = EllipticTheta[3,0,1/9]/QPochhammer[1/9,1/9] = 1.3946866902389... if n is even and c = EllipticTheta[2,0,1/9]/QPochhammer[1/9,1/9] = 1.333574200539... if n is odd. - Vaclav Kotesovec, Aug 21 2013

A015196 Sum of Gaussian binomial coefficients for q=10.

Original entry on oeis.org

1, 2, 13, 224, 13435, 2266646, 1348019857, 2269339773068, 13484735901526279, 226960944509263279490, 13485189809930561625032701, 2269636415245291711513986785912, 1348523520252401463276762566348539123
Offset: 0

Views

Author

Keywords

References

  • J. Goldman and G.-C. Rota, The number of subspaces of a vector space, pp. 75-83 of W. T. Tutte, editor, Recent Progress in Combinatorics. Academic Press, NY, 1969.
  • I. P. Goulden and D. M. Jackson, Combinatorial Enumeration. Wiley, NY, 1983, p. 99.
  • M. Sved, Gaussians and binomials, Ars. Combinatoria, 17A (1984), 325-351.

Crossrefs

Row sums of triangle A022174.

Programs

  • Mathematica
    Total/@Table[QBinomial[n, m, 10], {n, 0, 20}, {m, 0, n}] (* Vincenzo Librandi, Nov 01 2012 *)
    Flatten[{1,RecurrenceTable[{a[n]==2*a[n-1]+(10^(n-1)-1)*a[n-2],a[0]==1,a[1]==2},a,{n,1,15}]}] (* Vaclav Kotesovec, Aug 21 2013 *)

Formula

a(n) = 2*a(n-1)+(10^(n-1)-1)*a(n-2), (Goldman + Rota, 1969). - Vaclav Kotesovec, Aug 21 2013
a(n) ~ c * 10^(n^2/4), where c = EllipticTheta[3,0,1/10]/QPochhammer[1/10,1/10] = 1.348524024616... if n is even and c = EllipticTheta[2,0,1/10]/QPochhammer[1/10,1/10] = 1.2763120346269... if n is odd. - Vaclav Kotesovec, Aug 21 2013

A228465 Recurrence a(n) = a(n-1) + 2^n*a(n-2) with a(0)=0, a(1)=1.

Original entry on oeis.org

0, 1, 1, 9, 25, 313, 1913, 41977, 531705, 22023929, 566489849, 45671496441, 2366013917945, 376506912762617, 39141278944373497, 12376519796349807353, 2577539376694811306745, 1624792742123856760679161, 677311275106408471956040441, 852536648457739021814912002809
Offset: 0

Views

Author

Vaclav Kotesovec, Aug 22 2013

Keywords

Comments

Generally (if p>0, q>1), recurrence a(n) = b*a(n-1) + (p*q^n+d)*a(n-2), a(n) is asymptotic to c*q^(n^2/4)*(p*q)^(n/2), where c is for fixed parameters b, p, d, q, a(0), a(1) constant, independent on n.

Crossrefs

Programs

  • Magma
    [n le 2 select (n-1) else Self(n-1)+Self(n-2)*2^(n-1): n in [1..20]]; // Vincenzo Librandi, Aug 23 2013
    
  • Mathematica
    RecurrenceTable[{a[n]==a[n-1]+2^n*a[n-2],a[0]==0,a[1]==1},a,{n,0,20}]
    (* Alternative: *)
    a[n_] := Sum[2^(k^2-1) QBinomial[n - k , k - 1, 2], {k, 1, n}];
    Table[a[n], {n, 0, 19}] (* After Vladimir Kruchinin. Peter Luschny, Jan 20 2020 *)
  • SageMath
    def a(n):
        return sum(2^(k^2 - 1)*q_binomial(n-k , k-1, 2) for k in (1..n))
    print([a(n) for n in range(20)]) # Peter Luschny, Jan 20 2020

Formula

a(n) ~ c * 2^(n^2/4 + n/2), where c = 0.548441579870783378573455400152590154... if n is even and c = 0.800417244834941368929416800341853541... if n is odd.
a(n) = Sum_{k=1..floor(n/2+1/2)} qbinomial(n-k,k-1)*2^(k^2-1), where q-binomial is triangle A022166, that is, with q=2. - Vladimir Kruchinin, Jan 20 2020

A015197 Sum of Gaussian binomial coefficients for q=11.

Original entry on oeis.org

1, 2, 14, 268, 19156, 3961832, 3092997464, 7024809092848, 60287817008722576, 1505950784990730735392, 142158530752430089391520224, 39060769254069395008311334483648, 40559566021977397260316290099710383936
Offset: 0

Views

Author

Keywords

References

  • J. Goldman and G.-C. Rota, The number of subspaces of a vector space, pp. 75-83 of W. T. Tutte, editor, Recent Progress in Combinatorics. Academic Press, NY, 1969.
  • I. P. Goulden and D. M. Jackson, Combinatorial Enumeration. Wiley, NY, 1983, p. 99.
  • M. Sved, Gaussians and binomials, Ars. Combinatoria, 17A (1984), 325-351.

Crossrefs

Programs

  • Mathematica
    Total/@Table[QBinomial[n, m, 11], {n, 0, 20}, {m, 0, n}] (* Vincenzo Librandi, Nov 02 2012 *)
    Flatten[{1,RecurrenceTable[{a[n]==2*a[n-1]+(11^(n-1)-1)*a[n-2],a[0]==1,a[1]==2},a,{n,1,15}]}] (* Vaclav Kotesovec, Aug 21 2013 *)

Formula

a(n) = 2*a(n-1)+(11^(n-1)-1)*a(n-2), (Goldman + Rota, 1969). - Vaclav Kotesovec, Aug 21 2013
a(n) ~ c * 11^(n^2/4), where c = EllipticTheta[3,0,1/11]/QPochhammer[1/11,1/11] = 1.312069129398... if n is even and c = EllipticTheta[2,0,1/11]/QPochhammer[1/11,1/11] = 1.2291712170215... if n is odd. - Vaclav Kotesovec, Aug 21 2013

A348105 a(n) is the number of vector subspaces in (F_7)^n, counted up to coordinate permutation.

Original entry on oeis.org

1, 2, 7, 32, 238, 3236, 101624, 7298440, 1318198002, 546807988990
Offset: 0

Views

Author

Álvar Ibeas, Sep 30 2021

Keywords

Crossrefs

Row sums of A347973. Cf. A006121.

A370887 Square array read by descending antidiagonals: T(n,k) is the number of subgroups of the elementary abelian group of order A000040(k)^n for n >= 0 and k >= 1.

Original entry on oeis.org

1, 1, 2, 1, 2, 5, 1, 2, 6, 16, 1, 2, 8, 28, 67, 1, 2, 10, 64, 212, 374, 1, 2, 14, 116, 1120, 2664, 2825, 1, 2, 16, 268, 3652, 42176, 56632, 29212, 1, 2, 20, 368, 19156, 285704, 3583232, 2052656, 417199, 1, 2, 22, 616, 35872, 3961832, 61946920, 666124288
Offset: 0

Views

Author

Miles Englezou, Mar 05 2024

Keywords

Comments

As an elementary abelian group G of order p^n is isomorphic to an n-dimensional vector space V over the finite field of characteristic p, T(n,k) is also the number of subspaces of V.
V defined as above, T(n,k) is also the sum of the Gaussian binomial coefficients (n,r), 0 <= r < n, for a prime q number, since (n,r) counts the number of r-dimensional subspaces of V. The sequences of these sums for a fixed prime q number correspond to the columns of T(n,k).

Examples

			T(1,1) = 2 since the elementary abelian of order A000040(1)^1 = 2^1 has 2 subgroups.
T(3,5) = 2*T(2,5) + (A000040(5)^(3-1)-1)*T(1,5) = 2*14 + ((11^2)-1)*2 = 268.
First 6 rows and 8 columns:
n\k|   1     2       3        4          5           6            7            8
----+---------------------------------------------------------------------------
 0 |   1     1       1        1          1           1            1            1
 1 |   2     2       2        2          2           2            2            2
 2 |   5     6       8       10         14          16           20           22
 3 |  16    28      64      116        268         368          616          764
 4 |  67   212    1120     3652      19156       35872        99472       152404
 5 | 374  2664   42176   285704    3961832    10581824     51647264     99869288
 6 |2825 56632 3583232 61946920 3092997464 13340150272 141339210560 377566978168
		

Crossrefs

Programs

  • GAP
    # produces an array A of the first (7(7+1))/2 terms. However computation quickly becomes expensive for values > 7.
    LoadPackage("sonata");    # sonata package needs to be loaded to call function Subgroups. Sonata is included in latest versions of GAP.
    N:=[1..7];; R:=[];; S:=[];;
    for i in N do
        for j in N do
            if j>i then
                break;
            fi;
            Add(R,j);
        od;
        Add(S,R);
        R:=[];;
    od;
    A:=[];;
    for n in N do
        L:=List([1..Length(S[n])],m->Size(Subgroups(ElementaryAbelianGroup( Primes[Reversed(S[n])[m]]^(S[n][m]-1)))));
        Add(A,L);
    od;
    A:=Flat(A);
  • PARI
    T(n,k)=polcoeff(sum(i=0,n,x^i/prod(j=0,i,1-primes(k)[k]^j*x+x*O(x^n))),n)
    

Formula

T(n,k) = 2*T(n-1,k) + (A000040(k)^(n-1)-1)*T(n-2,k).
T(0,k) = 1.
T(1,k) = 2.
T(2,k) = A000040(k) + 3 = A113935(k).
T(3,k) = 2*(A000040(k)^3 + (A000040(k)-2))/(A000040(k)-1).
Showing 1-6 of 6 results.