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

A068156 G.f.: (x+2)*(x+1)/((x-1)*(x-2)) = Sum_{n>=0} a(n)*(x/2)^n.

Original entry on oeis.org

1, 3, 9, 21, 45, 93, 189, 381, 765, 1533, 3069, 6141, 12285, 24573, 49149, 98301, 196605, 393213, 786429, 1572861, 3145725, 6291453, 12582909, 25165821, 50331645, 100663293, 201326589, 402653181, 805306365, 1610612733
Offset: 0

Views

Author

Benoit Cloitre, Mar 12 2002

Keywords

Comments

Number of moves to solve Hard Pagoda puzzle.
Partial sums of A111286. Binomial transform of (1,2,4,2,4,2,4 ....). - Paul Barry, Feb 28 2003
Warren W. Kokko writes that this sequence also appears to give the number of scoring sequences for the Racer Dice Game with n dice. - N. J. A. Sloane, Feb 24 2015
From Michel Lagneau, Apr 27 2015: (Start)
For n > 0, a(n) is the number of identical bowls having the same weight except for one which has a higher weight than the others which are identifiable by a weighing machine using n weighings.
Example: a(2)=9 because two weighings are sufficient:
Start with 9 bowls;
Step 1: remove 3 bowls => there are still 6 bowls;
Step 2: first weighing of 6 bowls (3 bowls on each side of the weighing machine);
Step 3: if the machine is in equilibrium, we find immediately the unknown bowl with a second weighing from the first 3 removing bowls. Else, we find immediately the unknown bowl with a second weighing from the 3 heaviest bowls.
Note: If the unknown bowl has a lower weight, the reasoning is the same, but it is necessary to know whether the unknown bowl is heavier or lighter.
In the general case, we always remove 3 bowls in step 1.
(End)
The number of ternary words of length n that avoid {11-2,22-1}. G.f. [1+(k-1)*x^2]/[1-k*x+(k-1)*x^2] at k=3. [Theorem 7.93 by Heubach and Mansour]. - R. J. Mathar, May 22 2016
Apart from the first term, column 2 of A222057. - Anton Zakharov, Oct 27 2016

References

  • Richard I. Hess, Compendium of Over 7000 Wire Puzzles, privately printed, 1991.
  • Richard I. Hess, Analysis of Ring Puzzles, booklet distributed at 13th International Puzzle Party, Amsterdam, Aug 20 1993.
  • S. Heubach, T. Mansour, in Combinatorics of Compositions and words, Discr. Math. Applicat. (ed by K H Rosen), CRC Press 2010, p 300.
  • Warren W. Kokko, The Racer Dice Game, Manuscript, 2015.

Crossrefs

A diagonal of A233308 (for n > 1).
Cf. A000079.

Programs

  • Magma
    [3*2^n+0^n-3 : n in [0..30]]; // Vincenzo Librandi, Nov 11 2011
    
  • Mathematica
    Join[{1}, LinearRecurrence[{3, -2}, {3, 9}, 30]] (* Jean-François Alcover, Jan 08 2019 *)
    CoefficientList[Series[(1+2x^2)/((1-2x)(1-x)),{x,0,40}],x] (* Harvey P. Dale, Jan 02 2022 *)
  • Sage
    def a(n): return 3*2**n+0**n-3 # Torlach Rush, Jan 09 2025

Formula

a(0) = 1, a(n) = A060482(2n+1). For n > 0, a(n+1) = 2*a(n)+3.
G.f.: (1+2*x^2)/((1-2*x)*(1-x)). - Paul Barry, Feb 28 2003
a(n) = 3*2^n+0^n-3. - Paul Barry, Sep 04 2003
a(n) = A099257(A033484(n)+1) = 2*A033484(n) + 1. - Reinhard Zumkeller, Oct 09 2004
a(n) = 3*a(n-1) - 2*a(n-2), n > 1. - Vincenzo Librandi, Nov 11 2011
a(n) = a(n-1)+ 3*2^(n-1); a(1)=3. - Ctibor O. Zizka, Apr 17 2008
E.g.f.: 1 + 3*(exp(x) - 1)*exp(x). - Ilya Gutkovskiy, May 22 2016

A047238 Numbers that are congruent to {0, 2} mod 6.

Original entry on oeis.org

0, 2, 6, 8, 12, 14, 18, 20, 24, 26, 30, 32, 36, 38, 42, 44, 48, 50, 54, 56, 60, 62, 66, 68, 72, 74, 78, 80, 84, 86, 90, 92, 96, 98, 102, 104, 108, 110, 114, 116, 120, 122, 126, 128, 132, 134, 138, 140, 144, 146, 150, 152, 156, 158, 162
Offset: 1

Views

Author

Keywords

Comments

Complement of A047251, or "Polyrhythmic Sequence" P(2,3); the present sequence represents where the "rests" occur in a "3 against 2" polyrhythm. (See A267027 for definition and description). - Bob Selcoe, Jan 12 2016

Crossrefs

Cf. A047270 [(6*n-(-1)^n-1)/2], A047235 [(6*n-(-1)^n-3)/2], A047241 [(6*n-(-1)^n-5)/2].

Programs

  • Magma
    [n: n in [0..200]|n mod 6 in {0,2}]; // Vincenzo Librandi, Jan 12 2016
  • Mathematica
    Select[Range[0,200],MemberQ[{0,2},Mod[#,6]]&] (* or *) LinearRecurrence[ {1,1,-1},{0,2,6},70] (* Harvey P. Dale, Jun 15 2011 *)
  • PARI
    forstep(n=0,200,[2,4],print1(n", ")) \\ Charles R Greathouse IV, Oct 17 2011
    

Formula

From Bruno Berselli, Jun 24 2010: (Start)
G.f.: 2*x*(1+2*x)/((1+x)*(1-x)^2).
a(n) = a(n-1) + a(n-2) - a(n-3), a(0)=0, a(1)=2, a(2)=6.
a(n) = (6*n - (-1)^n-7)/2.
a(n) = 2*A032766(n-1). (End)
a(n) = 6*n - a(n-1) - 10 (with a(1)=0). - Vincenzo Librandi, Aug 05 2010
a(n+1) = Sum_{k>=0} A030308(n,k)*A111286(k+2). - Philippe Deléham, Oct 17 2011
a(n) = 2*floor(3*n/2). - Enrique Pérez Herrero, Jul 04 2012
Sum_{n>=2} (-1)^n/a(n) = sqrt(3)*Pi/36 + log(3)/4. - Amiram Eldar, Dec 13 2021
E.g.f: 3*(x-1)*exp(x) - cosh(x) + 4. - David Lovler, Jul 11 2022

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

Original entry on oeis.org

1, -2, 3, -6, 12, -24, 48, -96, 192, -384, 768, -1536, 3072, -6144, 12288, -24576, 49152, -98304, 196608, -393216, 786432, -1572864, 3145728, -6291456, 12582912, -25165824, 50331648, -100663296, 201326592, -402653184, 805306368, -1610612736, 3221225472
Offset: 0

Views

Author

Paul Barry, Jul 14 2005

Keywords

Comments

Diagonal sums of Riordan array ((1-x)/(1+x),x/(1+x)^2), A110162.
The positive sequence with g.f. (1-x^2)/(1-2x) gives the row sums of the Riordan array (1+x,x/(1-x)). - Paul Barry, Jul 18 2005
The inverse g.f. is (1 + 2*x + x^2 + 2*x^3 + x^4 + 2*x^5 + x^6 + ...). - Gary W. Adamson, Jan 07 2011
In absolute value, essentially the same as A007283(n) = A003945(n+1) = A042950(n+1) = A082505(n+1) = A087009(n+3) = A091629(n) = A098011(n+4) = A111286(n+2). - M. F. Hasler, Apr 19 2015

Crossrefs

Programs

Formula

a(n) = 3*(-2)^(n-2) = 3*A122803(n-2) for n >= 2. a(n) = -2 a(n-1) for n >= 3. - M. F. Hasler, Apr 19 2015
E.g.f.: (1/4) - (x/2) + (3/4)*exp(-2*x). - Alejandro J. Becerra Jr., Jan 29 2021

A176414 Expansion of (7+8*x)/(1+2*x).

Original entry on oeis.org

7, -6, 12, -24, 48, -96, 192, -384, 768, -1536, 3072, -6144, 12288, -24576, 49152, -98304, 196608, -393216, 786432, -1572864, 3145728, -6291456, 12582912, -25165824, 50331648, -100663296, 201326592, -402653184, 805306368
Offset: 0

Views

Author

Klaus Brockhaus, Apr 17 2010

Keywords

Comments

Inverse binomial transform of A176415.

Crossrefs

Cf. A176415, A110164 (essentially the same), A122803.

Programs

  • Mathematica
    Join[{7},NestList[-2#&,-6,40]] (* Harvey P. Dale, Jun 20 2020 *)
  • PARI
    {for(n=0, 29, print1(polcoeff((7+8*x)/(1+2*x)+x*O(x^n), n), ", "))}
    
  • PARI
    A176414(n)=3*(-2)^n+!n*4 \\ M. F. Hasler, Apr 19 2015

Formula

a(n) = A110164(n+2) for n > 0.
a(n) = 3*(-2)^n = 3*A122803(n+1) for n > 0; a(0) = 7.
a(n) = -2*a(n-1) for n > 1; a(0) = 7, a(1) = -6.
a(n) = (-1)^n*A132477(n) = (-1)^n*A122391(n+3), n>1.
a(n) = (-1)^n*A111286(n+2) = (-1)^n*A098011(n+4) = (-1)^n*A091629(n) = (-1)^n*A087009(n+3) = (-1)^n*A082505(n+1) = (-1)^n*A042950(n+1) = (-1)^n*A007283(n) = (-1)^n*A003945(n+1), n>0. - R. J. Mathar, Dec 10 2010
E.g.f.: 4 + 3*exp(-2*x). - Alejandro J. Becerra Jr., Feb 15 2021

Extensions

Edited by M. F. Hasler, Apr 19 2015

A114958 a(n) = 6*2^(n+1) - 5*(n+1) - 4.

Original entry on oeis.org

3, 10, 29, 72, 163, 350, 729, 1492, 3023, 6090, 12229, 24512, 49083, 98230, 196529, 393132, 786343, 1572770, 3145629, 6291352, 12582803, 25165710, 50331529, 100663172, 201326463, 402653050, 805306229, 1610612592, 3221225323
Offset: 0

Views

Author

Creighton Dement, Feb 21 2006

Keywords

Crossrefs

Programs

  • Magma
    [6*2^(n+1) - 5*(n+1) - 4: n in [0..30] ]; // Vincenzo Librandi, May 18 2011
    
  • PARI
    Vec((3 - 2*x + 4*x^2) / ((1 - x)^2*(1 - 2*x)) + O(x^40)) \\ Colin Barker, Apr 30 2019

Formula

From Colin Barker, Apr 30 2019: (Start)
G.f.: (3 - 2*x + 4*x^2) / ((1 - x)^2*(1 - 2*x)).
a(n) = 4*a(n-1) - 5*a(n-2) + 2*a(n-3) for n>2.
(End)

A356639 Number of integer sequences b with b(1) = 1, b(m) > 0 and b(m+1) - b(m) > 0, of length n which transform under the map S into a nonnegative integer sequence. The transform c = S(b) is defined by c(m) = Product_{k=1..m} b(k) / Product_{k=2..m} (b(k) - b(k-1)).

Original entry on oeis.org

1, 1, 3, 17, 155, 2677, 73327, 3578339, 329652351
Offset: 1

Views

Author

Thomas Scheuerle, Aug 19 2022

Keywords

Comments

This sequence can be calculated by a recursive algorithm:
Let B1 be an array of finite length, the "1" denotes that it is the first generation. Let B1' be the reversed version of B1. Let C be the element-wise product C = B1 * B1'. Then B2 is a concatenation of taking each element of B1 and add all divisors of the corresponding element in C. If we start with B1 = {1} then we get this sequence of arrays: B2 = {2}, B3 = {3, 4, 6}, ... . a(n) is the length of the array Bn. In short the length of Bn+1 and so a(n+1) is the sum over A000005(Bn * Bn').
The transform used in the definition of this sequence is its own inverse, so if c = S(b) then b = S(c). The eigensequence is 2^n = S(2^n).
There exist some transformation pairs of infinite sequences in the database:
A026549 <--> A038754; A100071 <--> A001405; A058295 <--> A------;
A111286 <--> A098011; A093968 <--> A205825; A166447 <--> A------;
A079352 <--> A------; A082458 <--> A------; A008233 <--> A264635;
A138278 <--> A------; A006501 <--> A264557; A336496 <--> A------;
A019464 <--> A------; A062112 <--> A------; A171647 <--> A359039;
A279312 <--> A------; A031923 <--> A------.
These transformation pairs are conjectured:
A137326 <--> A------; A066332 <--> A300902; A208147 <--> A308546;
A057895 <--> A------; A349080 <--> A------; A019442 <--> A------;
A349079 <--> A------.
("A------" means not yet in the database.)
Some sequences in the lists above may need offset adjustment to force a beginning with 1,2,... in the transformation.
If we allowed signed rational numbers, further interesting transformation pairs could be observed. For example, 1/n will transform into factorials with alternating sign. 2^(-n) transforms into ones with alternating sign and 1/A000045(n) into A000045 with alternating sign.

Examples

			a(4) = 17. The 17 transformation pairs of length 4 are:
  {1, 2, 3, 4}  = S({1, 2, 6, 24}).
  {1, 2, 3, 5}  = S({1, 2, 6, 15}).
  {1, 2, 3, 6}  = S({1, 2, 6, 12}).
  {1, 2, 3, 9}  = S({1, 2, 6, 9}).
  {1, 2, 3, 12} = S({1, 2, 6, 8}).
  {1, 2, 3, 21} = S({1, 2, 6, 7}).
  {1, 2, 4, 5}  = S({1, 2, 4, 20}).
  {1, 2, 4, 6}  = S({1, 2, 4, 12}).
  {1, 2, 4, 8}  = S({1, 2, 4, 8}).
  {1, 2, 4, 12} = S({1, 2, 4, 6}).
  {1, 2, 4, 20} = S({1, 2, 4, 5}).
  {1, 2, 6, 7}  = S({1, 2, 3, 21}).
  {1, 2, 6, 8}  = S({1, 2, 3, 12}).
  {1, 2, 6, 9}  = S({1, 2, 3, 9}).
  {1, 2, 6, 12} = S({1, 2, 3, 6}).
  {1, 2, 6, 15} = S({1, 2, 3, 5}).
  {1, 2, 6, 24} = S({1, 2, 3, 4}).
b(1) = 1 by definition, b(2) = 1+1 as 1 has only 1 as divisor.
a(3) = A000005(b(2)*b(2)) = 3.
The divisors of b(2) are 1,2,4. So b(3) can be b(2)+1, b(2)+2 and b(2)+4.
a(4) = A000005((b(2)+1)*(b(2)+4)) + A000005((b(2)+2)*(b(2)+2)) + A000005((b(2)+4)*(b(2)+1)) = 17.
		

Crossrefs

A167371 Triangle, read by rows, given by [0,1,-1,0,0,0,0,0,0,0,0,...] DELTA [1,0,-1,1,0,0,0,0,0,0,0,...] where DELTA is the operator defined in A084938.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1
Offset: 0

Views

Author

Philippe Deléham, Nov 02 2009

Keywords

Comments

Diagonal sums: A060576.
A167374*A154325 formatted as lower triangular matrix. - Philippe Deléham, Nov 19 2009

Examples

			Triangle begins:
  1;
  0, 1;
  0, 1, 1;
  0, 0, 1, 1;
  0, 0, 0, 1, 1;
  0, 0, 0, 0, 1, 1; ...
		

Crossrefs

Formula

Sum_{k=0..n} T(n,k)*x^k = A000007(n), A046698(n+1), A111286(n+1), A027327(n) for x= 0, 1, 2, 3 respectively.
G.f.: (1+x^2*y)/(1-x*y). - Philippe Deléham, Nov 09 2013
T(n,k) = T(n-1,k-1) for n > 2, T(0,0) = T(1,1) = T(2,1) = T(2,2) = 1, T(1,0) = T(2,0) = 0, T(n,k) = 0 if k < 0 or if k > n. - Philippe Deléham, Nov 09 2013
Showing 1-7 of 7 results.