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

A056830 Alternate digits 1 and 0.

Original entry on oeis.org

0, 1, 10, 101, 1010, 10101, 101010, 1010101, 10101010, 101010101, 1010101010, 10101010101, 101010101010, 1010101010101, 10101010101010, 101010101010101, 1010101010101010, 10101010101010101, 101010101010101010
Offset: 0

Views

Author

Henry Bottomley, Aug 30 2000

Keywords

Comments

Fibonacci bit-representations of numbers for which there is only one possible representation and for which the maximal and minimal bit-representations (A104326 and A014417) are equal. The numbers represented are equal to the numbers in A000071 (subtract the first term of that sequence). For example, 10101 = 12 because 8+5+1. - Casey Mongoven, Mar 19 2006
Sequence A000975 written in base 2. - Jaroslav Krizek, Aug 05 2009
The absolute value of alternating sum of the first n repunits: a(n) = abs(Sum_{k=0..n} (-1)^k*A002275(n)). - Ilya Gutkovskiy, Dec 02 2015
Binary representation of the x-axis, from the origin to the right edge, of the n-th stage of growth of the two-dimensional cellular automaton defined by "Rule 131", based on the 5-celled von Neumann neighborhood. See A279053 for references and links. - Robert Price, Dec 05 2016

Examples

			n  a(n)             A000975(n)   (If a(n) is interpreted in base 2.)
------------------------------
0  0 ....................... 0
1  1 ....................... 1
2  10 ...................... 2 = 2^1
3  101 ..................... 5
4  1010 ................... 10 = 2^1 + 2^3
5  10101 .................. 21
6  101010 ................. 42 = 2^1 + 2^3 + 2^5
7  1010101 ................ 85
8  10101010 .............. 170 = 2^1 + 2^3 + 2^5 + 2^7
9  101010101 ............. 341
10 1010101010 ............ 682 = 2^1 + 2^3 + 2^5 + 2^7 + 2^9
11 10101010101 .......... 1365
12 101010101010 ......... 2730 = 2^1 + 2^3 + 2^5 + 2^7 + 2^9 + 2^11, etc.
- _Bruno Berselli_, Dec 02 2015
		

Crossrefs

Programs

  • GAP
    List([0..30], n-> Int(10^(n+1)/99) ); # G. C. Greubel, Jul 14 2019
  • Magma
    [Round((20*10^n-11)/198) : n in [0..30]]; // Vincenzo Librandi, Jun 25 2011
    
  • Maple
    A056830 := proc(n) floor(10^(n+1)/99) ; end proc:
  • Mathematica
    CoefficientList[Series[x/((1-x^2)*(1-10*x)), {x,0,30}], x] (* G. C. Greubel, Sep 26 2017 *)
  • PARI
    Vec(x/((1-x)*(1+x)*(1-10*x))+O(x^30)) \\ Charles R Greathouse IV, Feb 13 2017
    
  • Sage
    [floor(10^(n+1)/99) for n in (0..30)] # G. C. Greubel, Jul 14 2019
    

Formula

a(n) = +10*a(n-1) + a(n-2) - 10*a(n-3).
a(n) = floor(10^(n+1)/(10^2-1)) = a(n-2)+10^(n-1) = 10*a(n-1) + (1 - (-1)^n)/2.
From Paul Barry, Nov 12 2003: (Start)
a(n+1) = Sum_{k=0..floor(n/2)} 10^(n-2*k).
a(n+1) = Sum_{k=0..n} Sum_{j=0..k} (-1)^(j+k)*10^j.
G.f.: x/((1-x)*(1+x)*(1-10*x)).
a(n) = 9*a(n-1) + 10*a(n-2) + 1.
a(n) = 10^(n+1)/99 - (-1)^n/22 - 1/18. (End)
a(n) = A007088(A107909(A104161(n))) = A007088(A000975(n)). - Reinhard Zumkeller, May 28 2005
a(n) = round((20*10^n-11)/198) = floor((10*10^n-1)/99) = ceiling((10*10^n-10)/99) = round((10*10^n-10)/99). - Mircea Merca, Dec 27 2010
From Daniel Forgues, Sep 20 2018: (Start)
If a(n) is interpreted in base 2:
a(2n) = Sum_{k=1..n} 2^(2n-1), n >= 0; a(2n-1) = a(2n)/2, n >= 1.
a(2n) = A020988(n), n >= 0.
a(0) = 0; a(2n) = 4*a(2n-2) + 2, n >= 1. (End)

Extensions

More terms from Casey Mongoven, Mar 19 2006

A095372 1+integers repeating "90" decimal digit pattern.

Original entry on oeis.org

1, 91, 9091, 909091, 90909091, 9090909091, 909090909091, 90909090909091, 9090909090909091, 909090909090909091, 90909090909090909091, 9090909090909090909091, 909090909090909090909091
Offset: 0

Views

Author

Labos Elemer, Jun 07 2004

Keywords

Comments

These numbers arise for example as divisors of several repunits (A002275).
The aerated sequence A(n) = [1, 0, 91, 0, 9091, 0, 909091,...] is a divisibility sequence, i.e., A(n) divides A(m) whenever n divides m. It is the case P1 = 0, P2 = -11^2, Q = 10 of the 3-parameter family of 4th-order linear divisibility sequences found by Williams and Guy. - Peter Bala, Aug 22 2019
Except for a(0) = 1, these terms M are such that 21 * M = 1M1, where 1M1 denotes the concatenation of 1, M and 1. Actually 21 is A329914(1) and a(1) = A329915(1) = 91, and the terms >=91 form the set {M_21}; for example, 21 * 909091 = 1(909091)1. - Bernard Schott, Dec 01 2019

Examples

			Digit-pattern P=[ab..z] repeating integers equal formally with P*(-1+10^(Ln))/(-1+10^L), where L is the length of pattern;
a(9) divides A002275(38) repunit. See A095371.
		

Crossrefs

Programs

  • Mathematica
    Table[1+90*(100^n-1)/99, {n, 0, 20}]

Formula

a(n) = 1 + 90*(-1 + 100^n)/99 = (10^(2*n+1) + 1)/11. - Rick L. Shepherd, Aug 01 2004
From Colin Barker, Jul 03 2013: (Start)
a(n) = 101*a(n-1) - 100*a(n-2).
G.f.: -(10*x-1)/((x-1)*(100*x-1)). (End)
E.g.f.: exp(x)*(1 + 10*(exp(99*x) - 1)/11). - Elmo R. Oliveira, Mar 15 2025

A014992 a(n) = (1 - (-10)^n)/11.

Original entry on oeis.org

1, -9, 91, -909, 9091, -90909, 909091, -9090909, 90909091, -909090909, 9090909091, -90909090909, 909090909091, -9090909090909, 90909090909091, -909090909090909, 9090909090909091, -90909090909090909
Offset: 1

Views

Author

Keywords

Comments

q-integers for q = -10.

Crossrefs

Programs

  • Magma
    I:=[1, -9]; [n le 2 select I[n] else -9*Self(n-1) +10*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Oct 22 2012
    
  • Maple
    a:=n->sum ((-10)^j, j=0..n): seq(a(n), n=0..25); # Zerinvary Lajos, Dec 16 2008
  • Mathematica
    CoefficientList[Series[1/((1 - x)*(1 + 10*x)), {x, 0, 30}], x] (* Vincenzo Librandi, Oct 22 2012 *)
  • PARI
    for(n=1, 30, print1((1-(-10)^n)/11, ", ")) \\ G. C. Greubel, May 26 2018
  • Sage
    [gaussian_binomial(n,1,-10) for n in range(1,19)] # Zerinvary Lajos, May 28 2009
    

Formula

a(n) = a(n-1) + q^(n-1) = (q^n - 1) / (q - 1).
G.f.: x/((1 - x)*(1 + 10*x)). - Vincenzo Librandi, Oct 22 2012
a(n) = -9*a(n-1) + 10*a(n-2). - Vincenzo Librandi, Oct 22 2012
a(n) = (-1)^(n+1)*A015585(n). - R. J. Mathar, Oct 26 2015
E.g.f.: (exp(x) - exp(-10*x))/11. - G. C. Greubel, May 26 2018

Extensions

Better name from Ralf Stephan, Jul 14 2013

A062160 Square array T(n,k) = (n^k - (-1)^k)/(n+1), n >= 0, k >= 0, read by falling antidiagonals.

Original entry on oeis.org

0, 1, 0, -1, 1, 0, 1, 0, 1, 0, -1, 1, 1, 1, 0, 1, 0, 3, 2, 1, 0, -1, 1, 5, 7, 3, 1, 0, 1, 0, 11, 20, 13, 4, 1, 0, -1, 1, 21, 61, 51, 21, 5, 1, 0, 1, 0, 43, 182, 205, 104, 31, 6, 1, 0, -1, 1, 85, 547, 819, 521, 185, 43, 7, 1, 0, 1, 0, 171, 1640, 3277, 2604, 1111, 300, 57, 8, 1, 0, -1, 1, 341, 4921, 13107, 13021, 6665, 2101, 455, 73, 9, 1, 0
Offset: 0

Views

Author

Henry Bottomley, Jun 08 2001

Keywords

Comments

For n >= 1, T(n, k) equals the number of walks of length k between any two distinct vertices of the complete graph K_(n+1). - Peter Bala, May 30 2024

Examples

			From _Seiichi Manyama_, Apr 12 2019: (Start)
Square array begins:
   0, 1, -1,  1,  -1,    1,    -1,      1, ...
   0, 1,  0,  1,   0,    1,     0,      1, ...
   0, 1,  1,  3,   5,   11,    21,     43, ...
   0, 1,  2,  7,  20,   61,   182,    547, ...
   0, 1,  3, 13,  51,  205,   819,   3277, ...
   0, 1,  4, 21, 104,  521,  2604,  13021, ...
   0, 1,  5, 31, 185, 1111,  6665,  39991, ...
   0, 1,  6, 43, 300, 2101, 14706, 102943, ... (End)
		

Crossrefs

Related to repunits in negative bases (cf. A055129 for positive bases).
Main diagonal gives A081216.
Cf. A109502.

Programs

  • Maple
    seq(print(seq((n^k - (-1)^k)/(n+1), k = 0..10)), n = 0..10); # Peter Bala, May 31 2024
  • Mathematica
    T[n_,k_]:=(n^k - (-1)^k)/(n+1); Join[{0},Table[Reverse[Table[T[n-k,k],{k,0,n}]],{n,12}]]//Flatten (* Stefano Spezia, Feb 20 2024 *)

Formula

T(n, k) = n^(k-1) - n^(k-2) + n^(k-3) - ... + (-1)^(k-1) = n^(k-1) - T(n, k-1) = n*T(n, k-1) - (-1)^k = (n - 1)*T(n, k-1) + n*T(n, k-2) = round[n^k/(n+1)] for n > 1.
T(n, k) = (-1)^(k+1) * resultant( n*x + 1, (x^k-1)/(x-1) ). - Max Alekseyev, Sep 28 2021
G.f. of row n: x/((1+x) * (1-n*x)). - Seiichi Manyama, Apr 12 2019
E.g.f. of row n: (exp(n*x) - exp(-x))/(n+1). - Stefano Spezia, Feb 20 2024
From Peter Bala, May 31 2024: (Start)
Binomial transform of the m-th row: Sum_{k = 0..n} binomial(n, k)*T(m, k) = (m + 1)^(n-1) for n >= 1.
Let R(m, x) denote the g.f. of the m-th row of the square array. Then R(m_1, x) o R(m_2, x) = R(m_1 + m_2 + m_1*m_2, x), where o denotes the black diamond product of power series as defined by Dukes and White. Cf. A109502.
T(m_1 + m_2 + m_1*m_2, k) = Sum_{i = 0..k} Sum_{j = i..k} binomial(k, i)* binomial(k-i, j-i)*T(m_1, j)*T(m_2, k-i). (End)

A015592 a(n) = 10*a(n-1) + 11*a(n-2).

Original entry on oeis.org

0, 1, 10, 111, 1220, 13421, 147630, 1623931, 17863240, 196495641, 2161452050, 23775972551, 261535698060, 2876892678661, 31645819465270, 348104014117971, 3829144155297680, 42120585708274481, 463326442791019290, 5096590870701212191, 56062499577713334100
Offset: 0

Views

Author

Keywords

Comments

Number of walks of length n between any two distinct nodes of the complete graph K_12. Example: a(2)=10 because the walks of length 2 between the nodes A and B of the complete graph ABCDEFGHIJKL are ACB, ADB, AEB, AFB, AGB, AHB, AIB, AJB, AKB and ALB. - Emeric Deutsch, Apr 01 2004

Crossrefs

Programs

Formula

a(n) = 11^(n-1) - a(n-1). G.f.: x/(1 - 10x - 11x^2). - Emeric Deutsch, Apr 01 2004
From Elmo R. Oliveira, Aug 17 2024: (Start)
E.g.f.: exp(5*x)*sinh(6*x)/6.
a(n) = (11^n - (-1)^n)/12. (End)

A189800 a(n) = 6*a(n-1) + 8*a(n-2), with a(0)=0, a(1)=1.

Original entry on oeis.org

0, 1, 6, 44, 312, 2224, 15840, 112832, 803712, 5724928, 40779264, 290475008, 2069084160, 14738305024, 104982503424, 747801460736, 5326668791808, 37942424436736, 270267896954880, 1925146777223168, 13713023838978048, 97679317251653632, 695780094221746176
Offset: 0

Views

Author

Keywords

Crossrefs

Programs

  • Magma
    I:=[0,1]; [n le 2 select I[n] else 6*Self(n-1)+8*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Nov 14 2011
    
  • Mathematica
    LinearRecurrence[{6, 8}, {0, 1}, 50]
    CoefficientList[Series[-(x/(-1+6 x+8 x^2)),{x,0,50}],x] (* Harvey P. Dale, Jul 26 2011 *)
  • PARI
    a(n)=([0,1; 8,6]^n*[0;1])[1,1] \\ Charles R Greathouse IV, Oct 03 2016

Formula

G.f.: x/(1 - 2*x*(3+4*x)). - Harvey P. Dale, Jul 26 2011

A098610 a(n) = 10^n + (-1)^n.

Original entry on oeis.org

2, 9, 101, 999, 10001, 99999, 1000001, 9999999, 100000001, 999999999, 10000000001, 99999999999, 1000000000001, 9999999999999, 100000000000001, 999999999999999, 10000000000000001, 99999999999999999, 1000000000000000001, 9999999999999999999, 100000000000000000001
Offset: 0

Views

Author

Henry Bottomley, Sep 17 2004

Keywords

Crossrefs

Programs

  • Magma
    [10^n+(-1)^n: n in [0..20]]; // Vincenzo Librandi, Sep 23 2016
  • Mathematica
    Total/@Partition[Riffle[10^Range[0,20],{1,-1}],2] (* or *) Table[10^n+(-1)^n,{n,0,20}] (* Harvey P. Dale, Aug 20 2012 *)

Formula

a(n) = A098611(n) + 2*(-1)^n.
a(n) = A098609(n)/A098611(n).
a(n) = A098609(n)/(11*A015585(n)).
a(n) = 9*A094028(n+1)/A015585(n).
From Chai Wah Wu, Sep 22 2016: (Start)
a(n) = 9*a(n-1) + 10*a(n-2) for n > 1.
G.f.: (9*x - 2)/((x + 1)*(10*x - 1)). (End)
E.g.f.: exp(-x)*(exp(11*x) + 1). - Elmo R. Oliveira, Aug 17 2024

A098611 a(n) = 10^n - (-1)^n.

Original entry on oeis.org

0, 11, 99, 1001, 9999, 100001, 999999, 10000001, 99999999, 1000000001, 9999999999, 100000000001, 999999999999, 10000000000001, 99999999999999, 1000000000000001, 9999999999999999, 100000000000000001, 999999999999999999, 10000000000000000001
Offset: 0

Views

Author

Henry Bottomley, Sep 17 2004

Keywords

Crossrefs

Programs

  • Magma
    [10^n-(-1)^n : n in [0..30]]; // Wesley Ivan Hurt, Apr 05 2015
    
  • Maple
    A098611:=n->10^n-(-1)^n: seq(A098611(n), n=0..30); # Wesley Ivan Hurt, Apr 05 2015
  • Mathematica
    Table[(10^n - (-1)^n), {n, 0, 30}] (* or *)
    CoefficientList[Series[11 x/(1 - 9 x - 10 x^2), {x, 0, 30}], x] (* Wesley Ivan Hurt, Apr 05 2015 *)
    LinearRecurrence[{9, 10}, {0, 11}, 20] (* Vincenzo Librandi, Apr 06 2015 *)
  • PARI
    vector(20,n, 10^(n-1)+(-1)^n) \\ Derek Orr, Apr 05 2015

Formula

a(n) = A098610(n) - 2*(-1)^n = A098609(n)/A098610(n).
From Wesley Ivan Hurt, Apr 05 2015: (Start)
G.f.: 11*x/(1-9*x-10*x^2).
a(n) = 9*a(n-1) + 10*a(n-2). (End)
From Elmo R. Oliveira, Aug 17 2024: (Start)
E.g.f.: exp(-x)*(exp(11*x) - 1).
a(n) = 11*A015585(n). (End)

A015609 a(n) = 11*a(n-1) + 12*a(n-2).

Original entry on oeis.org

0, 1, 11, 133, 1595, 19141, 229691, 2756293, 33075515, 396906181, 4762874171, 57154490053, 685853880635, 8230246567621, 98762958811451, 1185155505737413, 14221866068848955, 170662392826187461
Offset: 0

Views

Author

Keywords

Comments

Number of walks of length n between any two distinct nodes of the complete graph K_13. Example: a(2)=11 because the walks of length 2 between the nodes A and B of the complete graph ABCDEFGHIJKLM are ACB, ADB, AEB, AFB, AGB, AHB, AIB, AJB, AKB, ALB and AMB. - Emeric Deutsch, Apr 01 2004

Crossrefs

Programs

  • Magma
    [(1/13)*(12^n-(-1)^n): n in [0..20]]; // Vincenzo Librandi, Oct 11 2011
    
  • Mathematica
    CoefficientList[Series[x/(1-11*x-12*x^2), {x, 0, 50}], x] (* or *) LinearRecurrence[{11,12}, {0,1}, 30] (* G. C. Greubel, Dec 30 2017 *)
  • PARI
    x='x+O('x^30); concat([0], Vec(x/(1-11*x-12*x^2))) \\ G. C. Greubel, Dec 30 2017
  • Sage
    [lucas_number1(n,11,-12) for n in range(0, 18)] # Zerinvary Lajos, Apr 27 2009
    
  • Sage
    [abs(gaussian_binomial(n,1,-12)) for n in range(0,18)] # Zerinvary Lajos, May 28 2009
    

Formula

From Emeric Deutsch, Apr 01 2004: (Start)
a(n) = 12^(n-1) - a(n-1).
G.f.: x/(1 - 11*x - 12*x^2). (End)
E.g.f.: exp(-x)*(exp(13*x) - 1)/13. - Stefano Spezia, Mar 11 2020
Showing 1-9 of 9 results.