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

A006355 Number of binary vectors of length n containing no singletons.

Original entry on oeis.org

1, 0, 2, 2, 4, 6, 10, 16, 26, 42, 68, 110, 178, 288, 466, 754, 1220, 1974, 3194, 5168, 8362, 13530, 21892, 35422, 57314, 92736, 150050, 242786, 392836, 635622, 1028458, 1664080, 2692538, 4356618, 7049156, 11405774, 18454930, 29860704, 48315634
Offset: 0

Views

Author

David M. Bloom

Keywords

Comments

Number of cvtemplates at n-2 letters given <= 2 consecutive consonants or vowels (n >= 4).
Number of (n,2) Freiman-Wyner sequences.
Diagonal sums of the Riordan array ((1-x+x^2)/(1-x), x/(1-x)), A072405 (where this begins 1,0,1,1,1,1,...). - Paul Barry, May 04 2005
Central terms of the triangle in A094570. - Reinhard Zumkeller, Mar 22 2011
Pisano period lengths: 1, 1, 8, 3, 20, 8, 16, 6, 24, 20, 10, 24, 28, 16, 40, 12, 36, 24, 18, 60, ... . - R. J. Mathar, Aug 10 2012
Also the number of matchings in the (n-2)-pan graph for n >= 5. - Eric W. Weisstein, Oct 03 2017
a(n) is the number of bimultus bitstrings of length n. A bitstring is bimultus if each of its 1's possess at least one neighboring 1 and each of its 0's possess at least one neighboring 0. - Steven Finch, May 26 2020

Examples

			a(6)=10 because we have: 000000, 000011, 000111, 001100, 001111, 110000, 110011, 111000, 111100, 111111. - _Geoffrey Critzer_, Jan 26 2014
		

References

  • A. T. Benjamin and J. J. Quinn, Proofs that really count: the art of combinatorial proof, M.A.A. 2003, id. 16, 51.

Crossrefs

Except for initial term, = 2*Fibonacci numbers (A000045).
Essentially the same as A047992, A054886, A055389, A068922, and A090991.
Column 2 in A265584.

Programs

  • Haskell
    a006355 n = a006355_list !! n
    a006355_list = 1 : fib2s where
       fib2s = 0 : map (+ 1) (scanl (+) 1 fib2s)
    -- Reinhard Zumkeller, Mar 20 2013
    
  • Magma
    [1] cat [Lucas(n) - Fibonacci(n): n in [1..50]]; // Vincenzo Librandi, Aug 02 2014
    
  • Maple
    a:= n-> if n=0 then 1 else (Matrix([[2,-2]]). Matrix([[1,1], [1,0]])^n) [1,1] fi: seq(a(n), n=0..38); # Alois P. Heinz, Aug 18 2008
    a := n -> ifelse(n=0, 1, -2*I^n*ChebyshevU(n-2, -I/2)):
    seq(simplify(a(n)), n = 0..38);  # Peter Luschny, Dec 03 2023
  • Mathematica
    Join[{1}, Last[#] - First[#] & /@ Partition[Fibonacci[Range[-1, 40]], 4, 1]] (* Harvey P. Dale, Sep 30 2011 *)
    Join[{1}, LinearRecurrence[{1, 1}, {0, 2}, 38]] (* Jean-François Alcover, Sep 23 2017 *)
    (* Programs from Eric W. Weisstein, Oct 03 2017 *)
    Join[{1}, Table[2 Fibonacci[n], {n, 0, 40}]]
    Join[{1}, 2 Fibonacci[Range[0, 40]]]
    CoefficientList[Series[(1-x+x^2)/(1-x-x^2), {x, 0, 40}], x] (* End *)
  • PARI
    a(n)=if(n,2*fibonacci(n-1),1) \\ Charles R Greathouse IV, Mar 14 2012
    
  • PARI
    my(x='x+O('x^50)); Vec((1-x+x^2)/(1-x-x^2)) \\ Altug Alkan, Nov 01 2015
    
  • SageMath
    def A006355(n): return 2*fibonacci(n-1) - int(n==0)
    print([A006355(n) for n in range(51)]) # G. C. Greubel, Apr 18 2025

Formula

a(n+2) = F(n-1) + F(n+2), for n > 0.
G.f.: (1-x+x^2)/(1-x-x^2). - Paul Barry, May 04 2005
a(n) = A119457(n-1,n-2) for n > 2. - Reinhard Zumkeller, May 20 2006
a(n) = 2*F(n-1) for n > 0, F(n)=A000045(n) and a(0)=1. - Mircea Merca, Jun 28 2012
G.f.: 1 - x + x*Q(0), where Q(k) = 1 + x^2 + (2*k+3)*x - x*(2*k+1 + x)/Q(k+1); (continued fraction). - Sergei N. Gladkovskii, Oct 05 2013
a(n) = A118658(n) - 0^n. - M. F. Hasler, Nov 05 2014
a(n) = 2^(-n)*((1+r)*(1-r)^n - (1-r)*(1+r)^n)/r for n > 0, where r=sqrt(5). - Colin Barker, Jan 28 2017
a(n) = a(n-1) + a(n-2) for n >= 3. - Armend Shabani, Nov 25 2020
E.g.f.: 2*exp(x/2)*(5*cosh(sqrt(5)*x/2) - sqrt(5)*sinh(sqrt(5)*x/2))/5 - 1. - Stefano Spezia, Apr 18 2022
a(n) = F(n-3) + F(n-2) + F(n-1) for n >= 3, where F(n)=A000045(n). - Gergely Földvári, Aug 03 2024

Extensions

Corrected by T. D. Noe, Oct 31 2006

A090989 Number of meaningful differential operations of the n-th order on the space R^4.

Original entry on oeis.org

4, 6, 8, 12, 16, 24, 32, 48, 64, 96, 128, 192, 256, 384, 512, 768, 1024, 1536, 2048, 3072, 4096, 6144, 8192, 12288, 16384, 24576, 32768, 49152, 65536, 98304, 131072, 196608, 262144, 393216, 524288, 786432, 1048576, 1572864, 2097152, 3145728, 4194304, 6291456, 8388608
Offset: 1

Views

Author

Branko Malesevic, Feb 29 2004

Keywords

Crossrefs

Programs

  • GAP
    a:=[4,6];; for n in [3..40] do a[n]:=2*a[n-2]; od; a; # G. C. Greubel, Feb 02 2019
  • Magma
    m:=40; R:=PowerSeriesRing(Integers(), m); Coefficients(R!(  2*x*(2+3*x)/(1-2*x^2) )); // G. C. Greubel, Feb 02 2019
    
  • Maple
    NUM := proc(k :: integer) local i,j,n,Fun,Identity,v,A; n := 4; # <- DIMENSION Fun := (i,j)->piecewise(((j=i+1) or (i+j=n+1)),1,0); Identity := (i,j)->piecewise(i=j,1,0); v := matrix(1,n,1); A := piecewise(k>1,(matrix(n,n,Fun))^(k-1),k=1,matrix(n,n,Identity)); return(evalm(v&*A&*transpose(v))[1,1]); end:
  • Mathematica
    LinearRecurrence[{0,2}, {4,6}, 40] (* G. C. Greubel, Feb 02 2019 *)
  • PARI
    my(x='x+O('x^40)); Vec(2*x*(2+3*x)/(1-2*x^2)) \\ G. C. Greubel, Feb 02 2019
    
  • Sage
    (2*(2+3*x)/(1-2*x^2)).series(x, 40).coefficients(x, sparse=False) # G. C. Greubel, Feb 02 2019
    

Formula

a(k+2) = 2*a(k).
a(n) = b(n+3) where b(n) = gcdConv(c(n)) = Sum_{k=0..n} gcd(c(k),c(n-k)) and c(k)=A000079(k) for k>0 and c(0)=1. - Tilman Neumann, Jan 11 2009 [Updated by Sean A. Irvine, Jan 15 2025]
G.f.: 2*x*(2+3*x)/(1-2*x^2). - Colin Barker, May 03 2012
a(n) = 2*A164090(n). - R. J. Mathar, Jan 25 2023
a(n) = (sqrt(2))^n*(3/2 + sqrt(2) + (-1)^n*(3/2 - sqrt(2))). - Taras Goy, Jan 04 2025

Extensions

More terms from Tilman Neumann, Feb 06 2009

A118658 a(n) = 2*F(n-1) = L(n) - F(n), where F(n) and L(n) are Fibonacci and Lucas numbers respectively.

Original entry on oeis.org

2, 0, 2, 2, 4, 6, 10, 16, 26, 42, 68, 110, 178, 288, 466, 754, 1220, 1974, 3194, 5168, 8362, 13530, 21892, 35422, 57314, 92736, 150050, 242786, 392836, 635622, 1028458, 1664080, 2692538, 4356618, 7049156, 11405774, 18454930, 29860704, 48315634, 78176338
Offset: 0

Views

Author

Bill Jones (b92057(AT)yahoo.com), May 18 2006

Keywords

Comments

Essentially the same as A006355, A047992, A054886, A055389, A068922, A078642, A090991. - Philippe Deléham, Sep 20 2006 and Georg Fischer, Oct 07 2018
Also the number of matchings in the (n-2)-pan graph. - Eric W. Weisstein, Jun 30 2016
Also the number of maximal independent vertex sets (and minimal vertex covers) in the (n-1)-ladder graph. - Eric W. Weisstein, Jun 30 2017

Crossrefs

Programs

Formula

From Philippe Deléham, Sep 20 2006: (Start)
a(0)=2, a(1)=0; for n > 1, a(n) = a(n-1) + a(n-2).
G.f. (2 - 2*x)/(1 - x - x^2).
a(0)=2 and a(n) = 2*A000045(n-1) for n > 0. (End)
a(n) = A006355(n) + 0^n. - M. F. Hasler, Nov 05 2014
a(n) = Lucas(n-2) + Fibonacci(n-2). - Bruno Berselli, May 27 2015
a(n) = 3*Fibonacci(n-2) + Fibonacci(n-5). - Bruno Berselli, Feb 20 2017
a(n) = 2*A212804(n). - Bruno Berselli, Feb 21 2017
E.g.f.: 2*exp(x/2)*(5*cosh(sqrt(5)*x/2) - sqrt(5)*sinh(sqrt(5)*x/2))/5. - Stefano Spezia, Apr 18 2022

Extensions

More terms from Philippe Deléham, Sep 20 2006
Corrected by T. D. Noe, Nov 01 2006

A090990 Number of meaningful differential operations of the n-th order on the space R^5.

Original entry on oeis.org

5, 9, 16, 29, 52, 94, 169, 305, 549, 990, 1783, 3214, 5790, 10435, 18801, 33881, 61048, 110009, 198224, 357194, 643633, 1159797, 2089869, 3765830, 6785771, 12227562, 22033274, 39702627, 71541613, 128913593, 232294192, 418579765
Offset: 1

Views

Author

Branko Malesevic, Feb 29 2004

Keywords

Comments

Also number of meaningful compositions of the n-th order of the differential operations and Gateaux directional derivative on the space R^4. - Branko Malesevic and Ivana Jovovic (ivana121(AT)EUnet.yu), Jun 21 2007

Crossrefs

Programs

  • GAP
    a:=[5,9,16];; for n in [4..30] do a[n]:=a[n-1]+2*a[n-2]-a[n-3]; od; a; # G. C. Greubel, Feb 02 2019
  • Magma
    m:=40; R:=PowerSeriesRing(Integers(), m); Coefficients(R!(  x*(5+4*x-3*x^2)/(1-x-2*x^2+x^3) )); // G. C. Greubel, Feb 02 2019
    
  • Maple
    NUM := proc(k :: integer) local i,j,n,Fun,Identity,v,A; n := 5; # <- DIMENSION Fun := (i,j)->piecewise(((j=i+1) or (i+j=n+1)),1,0); Identity := (i,j)->piecewise(i=j,1,0); v := matrix(1,n,1); A := piecewise(k>1,(matrix(n,n,Fun))^(k-1),k=1,matrix(n,n,Identity)); return(evalm(v&*A&*transpose(v))[1,1]); end:
  • Mathematica
    LinearRecurrence[{1, 2, -1}, {5, 9, 16}, 32] (* Jean-François Alcover, Nov 22 2017 *)
  • PARI
    my(x='x+O('x^40)); Vec(x*(5+4*x-3*x^2)/(1-x-2*x^2+x^3)) \\ G. C. Greubel, Feb 02 2019
    
  • Sage
    a=(x*(5+4*x-3*x^2)/(1-x-2*x^2+x^3)).series(x, 40).coefficients(x, sparse=False); a[1:] # G. C. Greubel, Feb 02 2019
    

Formula

a(n+3) = a(n+2) + 2*a(n+1) - a(n).
G.f.: x*(5+4*x-3*x^2)/(1-x-2*x^2+x^3). - Ralf Stephan, Aug 19 2004

Extensions

More terms from Ralf Stephan, Aug 19 2004
More terms from Branko Malesevic and Ivana Jovovic (ivana121(AT)EUnet.yu), Jun 21 2007

A129639 Number of meaningful differential operations of the k-th order on the space R^12.

Original entry on oeis.org

12, 22, 40, 74, 136, 252, 464, 860, 1584, 2936, 5408, 10024, 18464, 34224, 63040, 116848, 215232, 398944, 734848, 1362080, 2508928, 4650432, 8566016, 15877568, 29246208, 54209408, 99852800, 185082496, 340918784, 631911168, 1163969536
Offset: 12

Views

Author

Branko Malesevic, May 31 2007

Keywords

Comments

Also (starting 7,12,...) the number of zig-zag paths from top to bottom of a rectangle of width 7. [Joseph Myers, Dec 23 2008]

Crossrefs

Programs

  • Maple
    NUM := proc(k :: integer) local i,j,n,Fun,Identity,v,A; n:=12; # <- DIMENSION Fun:=(i,j)->piecewise(((j=i+1) or (i+j=n+1)),1,0); Identity:=(i,j)->piecewise(i=j,1,0); v:=matrix(1,n,1); A:=piecewise(k>1,(matrix(n,n,Fun))^(k-1),k=1,matrix(n,n,Identity)); return(evalm(v&*A&*transpose(v))[1,1]); end:
  • Mathematica
    f[k_] := f[k] = If[k <= 17, {12, 22, 40, 74, 136, 252}[[k-11]], 6 f[k-2] - 10 f[k-4] + 4 f[k-6]];
    f /@ Range[12, 42] (* Jean-François Alcover, Apr 21 2020 *)

Formula

f(k+6) = 6*f(k+4)-10*f(k+2)+4*f(k).
Empirical G.f.: 2*x^12*(6+11*x-4*x^2-7*x^3)/(1-4*x^2+2*x^4). [Colin Barker, May 07 2012]

Extensions

More terms from Joseph Myers, Dec 23 2008

A163714 Number of n X 2 binary arrays with all 1s connected, a path of 1s from top row to bottom row, and no 1 having more than two 1s adjacent.

Original entry on oeis.org

3, 7, 10, 16, 26, 42, 68, 110, 178, 288, 466, 754, 1220, 1974, 3194, 5168, 8362, 13530, 21892, 35422, 57314, 92736, 150050, 242786, 392836, 635622, 1028458, 1664080, 2692538, 4356618, 7049156, 11405774, 18454930, 29860704, 48315634, 78176338
Offset: 1

Views

Author

R. H. Hardin, Aug 03 2009

Keywords

Comments

Same recurrence for A163695.
Same recurrence for A163733.

Examples

			All solutions for n=4:
...1.0...1.0...1.1...1.1...0.1...0.1...1.1...1.1...1.0...1.1...1.0...1.0...0.1
...1.0...1.0...1.0...1.0...0.1...0.1...0.1...0.1...1.0...1.0...1.1...1.1...0.1
...1.0...1.0...1.0...1.0...0.1...0.1...0.1...0.1...1.1...1.1...0.1...0.1...1.1
...1.0...1.1...1.0...1.1...0.1...1.1...0.1...1.1...0.1...0.1...0.1...1.1...1.0
------
...1.1...0.1...0.1
...0.1...1.1...1.1
...1.1...1.0...1.0
...1.0...1.0...1.1
		

Crossrefs

Cf. A090991, A078642, A047992. - R. J. Mathar, Aug 06 2009

Formula

Empirical: a(n) = a(n-1) + a(n-2) for n>=5.
Conjectures from Colin Barker, Feb 22 2018: (Start)
G.f.: x*(1 + x)*(3 + x - x^2) / (1 - x - x^2).
a(n) = (2^(-n)*((1-sqrt(5))^n*(-3+sqrt(5)) + (1+sqrt(5))^n*(3+sqrt(5)))) / sqrt(5) for n>2.
(End)

A116183 Array T(k,n) = number of meaningful differential operations of the n-th order on the space R^(3+k), for k=>0, n>0, read by antidiagonals.

Original entry on oeis.org

3, 4, 5, 5, 6, 8, 6, 9, 8, 13, 7, 10, 16, 12, 21, 8, 13, 16, 29, 16, 34, 9, 14, 24, 26, 52, 24, 55, 10, 17, 24, 45, 42, 94, 32, 89, 11, 18, 32, 42, 84, 68, 169
Offset: 1

Views

Author

Jonathan Vos Post, Apr 08 2007

Keywords

Comments

Two more rows can be obtained from A129638 and A129639.

Examples

			Table begins:
k=0.|.3..5..8.13..21..34..55..89..144..233..377..610..987.1597...
k=1.|.4..6..8.12..16..24..32..48...64...96..128..192..256..384...
k=2.|.5..9.16.29..52..94.169.305..549..990.1783.3214.5790...
k=3.|.6.10.16.26..42..68.110.178..288..466..754.1220.1974...
k=4.|.7.13.24.45..84.158.296.557.1045.1966.3691.6942.13038...
k=5.|.8.14.24.42..72.126.216.378..648.1134.1944.3402..5832...
k=6.|.9.17.32.61.116.222.424.813.1556.2986.5721.10982...
k=7.|10.18.32.58.104.188.338.610.1098.1980.3566.6428...
		

Crossrefs

k=0 row is A020701. k=1 row is A090989. k=2 row is A090990. k=3 row is A090991. k=4 row is A090992. k=5 row is A090993. k=6 row is A090994. k=7 row is A090995.
Diagonal: A127935.

A208667 Number of 2n-bead necklaces labeled with numbers 1..4 allowing reversal, with neighbors differing by exactly 1.

Original entry on oeis.org

3, 5, 8, 14, 24, 47, 89, 187, 396, 881, 1990, 4645, 10935, 26211, 63320, 154378, 378444, 933023, 2308957, 5735372, 14286908, 35683815, 89324138, 224057919, 563033979, 1417210457, 3572641304, 9018885122, 22796905056, 57692673963, 146167385345, 370710166435
Offset: 1

Views

Author

R. H. Hardin, Feb 29 2012

Keywords

Examples

			All solutions for n=4:
..1....2....2....2....1....1....1....1....1....3....1....1....2....2
..2....3....3....3....2....2....2....2....2....4....2....2....3....3
..1....2....2....2....1....1....3....3....3....3....3....1....4....4
..2....3....3....3....2....2....4....2....2....4....2....2....3....3
..1....4....2....2....3....1....3....1....3....3....3....3....2....4
..2....3....3....3....4....2....4....2....4....4....2....2....3....3
..1....4....2....4....3....3....3....3....3....3....3....3....4....4
..2....3....3....3....2....2....2....2....2....4....2....2....3....3
		

Crossrefs

Column 4 of A208671.

Formula

a(n) = (2*A208723(n) + A090991(n))/4. - Andrew Howroyd, Mar 19 2017

Extensions

a(25)-a(32) from Andrew Howroyd, Mar 19 2017
Showing 1-8 of 8 results.