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 21-30 of 1007 results. Next

A232551 Number of distinct primitive quadratic forms of discriminant -4n that exist such that every prime p for which -n is a quadratic residue mod p can be represented by one of them.

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 1, 2, 2, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 3, 4, 2, 2, 4, 2, 4, 2, 2, 4, 4, 2, 3, 4, 3, 4, 3, 2, 4, 3, 4, 5, 4, 2, 4, 4, 3, 3, 4, 3, 4, 4, 3, 4, 4, 3, 6, 4, 2, 5, 4, 4, 5, 3, 3, 6, 6, 2, 5, 6, 4, 4, 4, 3, 6, 4, 4, 6, 4, 3, 6, 4, 3, 5, 6, 4, 6, 4, 4, 7, 6, 4, 4, 4, 5, 5, 6, 3, 5, 4, 3
Offset: 1

Views

Author

V. Raman, Nov 26 2013

Keywords

Comments

This is closely related to the class number problem.
A quadratic form is primitive if the GCD of the coefficients is 1. For example, the quadratic form 2*x^2+4*y^2 is not primitive.
Two quadratic forms f(x,y) = a*x^2+b*x*y+c*y^2 and g(x,y) = p*x^2+q*x*y+r*y^2 are distinct (or inequivalent) if and only if one cannot be obtained by a linear transformation (of the variables x, y) from the other. For example, the three quadratic forms u(x,y) = 3*x^2+2*x*y+3*y^2, v(x,y) = 3*x^2+4*x*y+4*y^2 and w(x,y) = 3*x^2+10*x*y+11*y^2 are equivalent because v(x,y) = u(x+y,-y) and w(x,y) = v(x+y,y). Also, w(x,y) = u(x+2*y,-y). Similarly, the two quadratic forms s(x,y) = 8*x^2+9*y^2 and t(x,y) = 17*x^2+50*x*y+41*y^2 are equivalent because t(x,y) = s(x+2*y,x+y).
The quadratic form x^2+n*y^2 is one such form and the only such form if n = 1, 2, 3, 4, 7.
a(n) = 1 if and only if n = 1, 2, 3, 4, 7.
If n is a squarefree convenient number (A000926), a(n) represents the class number of the ring Z[sqrt(n)] if n == 1 (mod 4) or if n == 2 (mod 4) and the class number of the ring Z[(1+sqrt(n))/2] if n == 3 (mod 4) and this class number is a power of 2.
Any prime p such that -n is a quadratic residue mod p can be represented by exactly one of the a(n) distinct primitive quadratic forms of discriminant = -4n in at most four different ways (if n >= 2) or in at most eight different ways (if n = 1).
If n is a prime congruent to 3 (mod 4), then a(n) = A232550(n).
If p is a prime, p^2 does not divide n, and p > 2 if n == 3 (mod 8), then there is a multiple of p in which p is raised to an odd power which can be written in the form x^2+n*y^2 if and only if -n is a quadratic residue mod p.
The product of two numbers (prime or composite, same or different) which can be represented by the same quadratic form of discriminant = -4n can be written in the form x^2+n*y^2, as the following identity shows:
(X*a^2+Y*a*b+Z*b^2)*(X*c^2+Y*c*d+Z*d^2) = (a*c*X+b*d*Z+a*d*(Y/2)+b*c*(Y/2))^2 + ((X*Z)-(Y^2/4))*(a*d-b*c)^2.
(X*a^2+Y*a*b+Z*b^2)*(X*c^2+Y*c*d+Z*d^2) = (a*c*X+b*d*((Y^2/(2*X))-Z)+a*d*(Y/2)+b*c*(Y/2))^2 + ((X*Z)-(Y^2/4))*(b*d*(Y/X)+a*d+b*c)^2.
Note that for the latter equation, (a*c*X+b*d*((Y^2/(2*X))-Z)+a*d*(Y/2)+b*c*(Y/2)) and (b*d*(Y/X)+a*d+b*c) need not always be integers. If they are both integers, then it will be a second representation of the product of (X*a^2+Y*a*b+Z*b^2) and (X*c^2+Y*c*d+Z*d^2) in the form x^2+((X*Z)-(Y^2/4))*y^2.
This sequence is the same as taking every fourth number in A107628. - T. D. Noe, Jan 02 2014

Examples

			If n = 1, 2, 3, 4 or 7, then the only such available quadratic form is x^2+n*y^2.
For n = 5, every prime that is congruent to {1, 2, 3, 5, 7, 9} mod 20 can be represented by either of the two distinct primitive quadratic forms of discriminant = -20: x^2+5*y^2 or 2*x^2+2*x*y+3*y^2.
For n = 6, every prime that is congruent to {1, 2, 3, 5, 7, 11} mod 24 can be represented by either of the two distinct primitive quadratic forms of discriminant = -24: x^2+6*y^2 or 2*x^2+3*y^2.
For n = 10, every prime that is congruent to {1, 2, 5, 7, 9, 11, 13, 19, 23, 37} mod 40 can be represented by either of the two distinct primitive quadratic forms of discriminant = -40: x^2+10*y^2 or 2*x^2+5*y^2.
		

Crossrefs

Cf. A000003, A000926, A232529, A232530, A232550 (Number of distinct primitive quadratic forms of discriminant = -4*n needed to generate all primes p for which p is a quadratic residue (mod 4*n) or p-n is a quadratic residue (mod 4*n)).

A101101 a(1)=1, a(2)=5, and a(n)=6 for n >= 3.

Original entry on oeis.org

1, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6
Offset: 1

Views

Author

Cecilia Rossiter (cecilia(AT)noticingnumbers.net), Dec 15 2004

Keywords

Comments

Previous name was: The first summation of row 3 of Euler's triangle - a row that will recursively accumulate to the power of 3.
Decimal expansion of 47/30. - Elmo R. Oliveira, Aug 09 2024

Crossrefs

Within the "cube" of related sequences with construction based upon MaginNKZ formula, with n downward, k rightward and z backward:
Before: this_sequence, A008458, A003215, A000578, A000537, A024166 or A024166, A101094, A101097, A101102.
Above: this_sequence, below: A101104, A101100.
Within the "cube" of related sequences with construction based upon SeriesAtLevelR formula, with n downward, x rightward and r backward:
Above: this_sequence, below: A101103, A101096.

Programs

  • Mathematica
    MagicNKZ=Sum[(-1)^j*Binomial[n+1-z, j]*(k-j+1)^n, {j, 0, k+1}];Table[MagicNKZ, {n, 3, 3}, {z, 1, 1}, {k, 0, 34}] (* OR *)
    SeriesAtLevelR = Sum[Eulerian[n, i - 1]*Binomial[n + x - i + r, n + r], {i, 1, n}]; Table[SeriesAtLevelR, {n, 3, 3}, {r, -3, -3}, {x, 4, 35}]
    Join[{1, 5},LinearRecurrence[{1},{6},78]] (* Ray Chandler, Sep 23 2015 *)

Formula

G.f.: x*(1+4*x+x^2)/(1-x). - L. Edson Jeffery, Jan 29 2012

Extensions

I wish the sequence was as interesting as the list of references! - N. J. A. Sloane
New name from Joerg Arndt, Nov 30 2014

A102411 Even triangle !n. This table read by rows gives the coefficients of sum formulas of n-th Left factorials (A003422). The k-th row (6>=k>=1) contains T(i,k) for i=1 to k+2, where k=[2*n+1+(-1)^(n-1)]/4 and T(i,k) satisfies !n = Sum_{i=1..k+2} T(i,k) * n^(i-1) / (2*k-2)!.

Original entry on oeis.org

0, 1, 0, -16, 5, 1, 0, 5256, -3068, 276, 32, 0, 2070720, 2367420, -912150, 53220, 3510, 0, -36031524480, 15327895296, -40587120, -387492840, 21414120, 758184, 840, -212459319878400, -75473246681280, 38182549456800, -2562251680800, -195611371200, 13639812480, 285616800, 453600
Offset: 1

Views

Author

André F. Labossière, Jan 07 2005

Keywords

Comments

The sum of signed coefficients for each k-th row is divisible by (2*k-2)!. Moreover, another variant (but an incomplete one, and sorted differently) of the above sequence is presented in A101752.

Examples

			Triangle starts:
0, 1, 0;
-16, 5, 1, 0;
5256, -3068, 276, 32, 0;
2070720, 2367420, -912150, 53220, 3510, 0;
-36031524480, 15327895296, -40587120, -387492840, 21414120, 758184, 840;
...
!11=4037914; substituting n=11 in the formula of the k-th row we obtain k=6 and the coefficients T(i,6) are those needed for computing !11.
=> !11 = [ -212459319878400 -75473246681280*11 +38182549456800*11^2 -2562251680800*11^3 -195611371200*11^4 +13639812480*11^5 +285616800*11^6 +453600*11^7 ]/10! = 4037914.
		

Crossrefs

A102412 Odd triangle !n. This table read by rows gives the coefficients of sum formulas of n-th Left factorials (A003422). The k-th row (6>=k>=1) contains T(i,k) for i=1 to k+1, where k=[2*n+3+(-1)^n]/4 and T(i,k) satisfies !n = Sum_{i=1..k+1} T(i,k) * n^(i-1) / (2*k-2)!.

Original entry on oeis.org

0, 1, -4, 4, 0, 96, -396, 108, 0, 1012320, -192900, -64890, 11460, 90, -2038014720, 1977810240, -304486560, -12131280, 2792160, 21840, -33190735737600, 4445760574080, 2334485260800, -394554283200, 2330344800, 1198048320, 8215200
Offset: 1

Views

Author

André F. Labossière, Jan 07 2005

Keywords

Comments

Incidentally, the sum of signed coefficients for each k-th row is divisible by (2*k-2)!.

Examples

			Triangle starts:
0, 1;
-4, 4, 0;
96, -396, 108, 0;
1012320, -192900, -64890, 11460, 90;
-2038014720, 1977810240, -304486560, -12131280, 2792160, 21840;
...
!11=4037914; substituting n=11 in the formula of the k-th row we obtain k=6 and the coefficients T(i,6) are those needed for computing !11.
=> !11 = [ -33190735737600 +4445760574080*11 +2334485260800*11^2 -394554283200*11^3 +2330344800*11^4 +1198048320*11^5 +8215200*11^6 ]/10! = 4037914.
		

Crossrefs

A122944 A nonsense sequence.

Original entry on oeis.org

1, 1, -1, -1, -1, 1, 0, 2, 1, -1, 1, -1, -4, -1, 1, 0, -2, 2, 6, 1, -1, 0, 0, 4, -2, -7, -1, 1, 0, 2, -1, -9, 3, 9, 1, -1, 1, 1, -13, 8, 20, -8, -13, -1, 1, 0, -2, -2, 24, -15, -31, 13, 17, 1, -1, 0, 0, 4, 4, -40, 20, 44, -14, -19, -1, 1, 0, 0, 0, -8, -4, 56, -24, -54, 14, 20, 1, -1, 0, 0, 0, 0, 16, 8, -88, 30, 71, -15, -22, -1, 1, 0, 0, 0, 16, 8
Offset: 1

Views

Author

Roger L. Bagula and Gary W. Adamson, Oct 24 2006

Keywords

Examples

			Triangle:
  {1},
  {1, -1},
  {-1, -1, 1},
  {0, 2, 1, -1},
  {1, -1, -4, -1, 1},
  {0, -2, 2,6, 1, -1},
  {0, 0, 4, -2, -7, -1, 1},
  {0, 2, -1, -9, 3, 9,1, -1},
  {1, 1, -13, 8, 20, -8, -13, -1, 1},
  {0, -2, -2, 24, -15, -31, 13,17, 1, -1},
  {0, 0, 4, 4, -40, 20, 44, -14, -19, -1, 1},
  {0, 0, 0, -8, -4, 56, -24, -54, 14, 20, 1, -1}
Polynomials:
  1,
  1 - x,
  -1 - x + x^2,
  2 x + x^2 - x^3,
  1 - x - 4 x^2 - x^3 + x^4,
  -2 x + 2 x^2 + 6 x^3 +x^4 - x^5,
  4 x^2 - 2 x^3 - 7 x^4 - x^5 +x^6,
  2 x - x^2 - 9 x^3 + 3 x^4 + 9 x^5 + x^6 - x^7
		

Crossrefs

Cf. A121801.

Programs

  • Mathematica
    c[i_, k_] := Floor[Mod[i/2^k, 2]]; b[i_, k_] = If[c[i, k] == 0 && c[i, k + 1] == 0, 0, If[c[i, k] == 1 && c[i, k + 1] == 1, 0, 1]];
    An[d_] := Table[If[Sum[b[n, k]*b[m, k], {k, 0, d - 1}] == 0, 1, 0], {n, 0, d - 1}, {m, 0, d - 1}]: a=Join[{{1}}, Table[CoefficientList[CharacteristicPolynomial[An[d], x], x], {d, 1, 20}]];
    Flatten[a]
    RowSum=Table[Apply[Plus, Abs[a[[n]]]], {n, 1, Length[a]}]

A157097 Consider all Consecutive Integer Pythagorean 11-tuples (X, X+1, X+2, X+3, X+4, X+5, Z-4, Z-3, Z-2, Z-1, Z) ordered by increasing Z; sequence gives Z values.

Original entry on oeis.org

5, 65, 1385, 30365, 666605, 14634905, 321301265, 7053992885, 154866542165, 3400009934705, 74645352021305, 1638797734533965, 35978904807725885, 789897108035435465, 17341757471971854305, 380728767275345359205, 8358691122585626048165, 183510475929608427700385, 4028871779328799783360265
Offset: 0

Views

Author

Charlie Marion, Mar 12 2009

Keywords

Comments

In general, the last terms of Consecutive Integer Pythagorean 2k+1-tuples may be found as follows: let last(0)=0, last(1)=k*(2k+3) and, for n > 1, last(n) = (4k+2)*last(n-1) - last(n-2)-2*k*(k-1); e.g., if k=6, then last(2) = 2274 = 26*90 - 6 - 60.
In general, the first and last terms of Consecutive Integer Pythagorean 2k+1-tuples may be found as follows: let first(0)=0 and last(0)=k; for n > 0, let first(n) = (2k+1)*first(n-1) + 2k*last(n-1) + k and last(n) = (2k+2)*first(n-1) + (2k+1)*last(n-1) + 2k; e.g., if k=6 and n=2, then first(2) = 2100 = 13*78 + 12*90 + 6 and last(2) = 2274 = 14*78 + 13*90 + 12.
In general, the last terms of Consecutive Integer Pythagorean 2k+1-tuples may be found as follows: if q=(k+1)/k, then last(n) = k^n*(k+1)*((1+sqrt(q))^(2*n+1) - (1-sqrt(q))^(2*n+1))/(4*sqrt(q)) + (k-1)/2; e.g., if k=6 and n=2, then last(2) = 2274 = 6^2*7*((1+sqrt(7/6))^5 - (1-sqrt(7/6))^5)/(4*sqrt(7/6)) + 5/2.
In general, if u(n) is the numerator and e(n) is the denominator of the n-th continued fraction convergent to sqrt((k+1)/k), then the last terms of Consecutive Integer Pythagorean 2k+1-tuples may be found as follows: last(2n+1) = (e(2n+1)^2 + k^2*e(2n)^2 + k*(k-1)*e(2n+1)*e(n))/k and, for n > 0, last(2n) = (k*(u(2n)^2 + u(2n-1)^2 + (k-1)*u(2n)*u(2n-1)))/(k+1); e.g., a(3) = 30365 = (220^2 + 5^2*21^2 + 5*4*220*21)/5 and a(4) = 666605 = (5*(505^2 + 241^2 + 4*505*241))/6.
In general, if b(0)=1, b(1)=4k+2 and, for n > 1, b(n) = (4k+2)*b(n-1) - b(n-2), and last(n) is the last term of the n-th Consecutive Integer Pythagorean 2k+1-tuple as defined above, then Sum_{i=0..n} (k*last(i) - k(k-1)/2) = k(k+1)/2*b(n); e.g., if n=3, then 1+2+3+4+5+61+62+63+64+65+1381+1382+1383+1384+1385 = 7245 = 15*483.
In general, if last(n) is the last term of the n-th Consecutive Integer Pythagorean 2k+1-tuple, then lim_{n->infinity} last(n+1)/last(n) = k*(1+sqrt((k+1)/k))^2 = 2k + 1 + 2*sqrt(k^2+k).

Examples

			a(2)=65 since 55^2 + 56^2 + 57^2 + 58^2 + 59^2 + 60^2 = 61^2 + 62^2 + 63^2 + 64^2 + 65^2.
		

References

  • A. H. Beiler, Recreations in the Theory of Numbers. New York: Dover, 1964, pp. 122-125.
  • L. E. Dickson, History of the Theory of Numbers, Vol. II, Diophantine Analysis. Dover Publications, Inc., Mineola, NY, 2005, pp. 181-183.
  • W. Sierpinski, Pythagorean Triangles. Dover Publications, Mineola NY, 2003, pp. 16-22.

Crossrefs

Programs

  • Mathematica
    LinearRecurrence[{23, -23, 1}, {5, 65, 1385}, 25] (* Paolo Xausa, May 29 2025 *)

Formula

For n > 1, a(n) = 22*a(n-1) - a(n-2) - 40.
For n > 0, a(n) = 12*A157096(n-1) + 11*a(n-1) + 10.
a(n) = 5^n*6*((1+sqrt(6/5))^(2*n+1) - (1-sqrt(6/5))^(2*n+1))/(4*sqrt(6/5)) + 4/2; e.g., 1385 = 5^2*6*((1+sqrt(6/5))^5 - (1-sqrt(6/5))^5)/(4*sqrt(6/5)) + 4/2.
Limit_{n->oo} a(n+1)/a(n) = 5*(1+sqrt(6/5))^2 = 11 + 2*sqrt(30).
G.f.: 5*(1-10*x+x^2)/((1-x)*(1-22*x+x^2)). - Colin Barker, Mar 27 2012
a(n) = 23*a(n-1) - 23*a(n-2) + a(n-3). - Wesley Ivan Hurt, Oct 26 2020

Extensions

a(13), a(15) corrected by Georg Fischer, Oct 26 2020

A161190 Sums of prime points found in four grids in each corner of a square.

Original entry on oeis.org

281, 414, 857, 942, 1124, 2569, 1295, 1433, 1094, 2426, 2730, 3000, 2459, 2575, 1818, 4991, 5331, 3363, 1163, 5006, 5226, 1381, 7213, 7493, 4729, 8217, 3456, 3546, 3684, 5615, 7834, 8090, 6243, 2143, 8862, 11407, 9396, 12019, 4906, 7631, 2591, 13411
Offset: 1

Views

Author

Enoch Haga, Jun 06 2009, Jun 24 2009, Jun 27 2009

Keywords

Comments

When the points are marked on drawn lines the concavity is apparent.
The lines are indicated with capital letters A through G (see Fig. 6 in Link)
- A
B 1 7 12 16 19 21
C 2 8 13 17 20
D 3 9 14 18
E 4 10 15
F 5 11
G 6
Reading diagonally across the bottom of the first of 4 diagonals:
6,11,15,18,20,21. The next 3 diagonals are formed by adding 1 to 21, e.g.,
22,27,31,34,36,37
38,43,47,50,52,53
54,59,63,66,68,69. This grid is numbered 1, and the next, 2, starts at 70.
Each numbered set of 4 grids fills the corners of a square delineating and surrounding a circle suggested by the 24 numbers above on its circumference.

Examples

			a(1)=281 because that is the sum of the prime points in the first set of 4 lower diagonals in the first 4 corner grids: (11+31+37+43+47+53+59=281).
		

Crossrefs

Programs

  • UBASIC
    10 'rotate points, Enoch Haga, Jun 05 2009
    20 F=5
    30 A=F+1:print A;:if A=prmdiv(A) then S=S+B:print "*";
    40 B=A+5:print B;:if B=prmdiv(B) then S=S+B:print "*";
    50 C=B+4:print C;:if C=prmdiv(C) then S=S+C:print "*";
    60 D=C+3:print D;:if D=prmdiv(D) then S=S+D:print "*";
    70 E=D+2:print E;:if E=prmdiv(E) then S=S+E:print "*";
    80 F=E+1:print F;:if F=prmdiv(F) then S=S+F:print "*";
    90 R=R+1:if R=4 and S=prmdiv(S) then print S;"*";
    100 if R=4 then print R;S;:T=T+1:print T:R=0:S=0
    110 stop:goto 30

Extensions

Partially edited by Jon E. Schoenfield, Feb 26 2013

A166346 Coefficients of numerator of recursively defined rational function: p(x,3)=x*(x^2 + 8*x + 1)/(1 - x)^4; p(x, n) = 2*x*D[p(x, n - 1), x] - p(x,n-2).

Original entry on oeis.org

1, 1, 1, 1, 8, 1, 1, 39, 39, 1, 1, 158, 482, 158, 1, 1, 605, 4194, 4194, 605, 1, 1, 2276, 31047, 67752, 31047, 2276, 1, 1, 8515, 210609, 856075, 856075, 210609, 8515, 1, 1, 31802, 1356368, 9367974, 17194910, 9367974, 1356368, 31802, 1, 1, 118713
Offset: 1

Views

Author

Roger L. Bagula, Oct 12 2009

Keywords

Examples

			{1},
{1, 1},
{1, 8, 1},
{1, 39, 39, 1},
{1, 158, 482, 158, 1},
{1, 605, 4194, 4194, 605, 1},
{1, 2276, 31047, 67752, 31047, 2276, 1},
{1, 8515, 210609, 856075, 856075, 210609, 8515, 1},
{1, 31802, 1356368, 9367974, 17194910, 9367974, 1356368, 31802, 1},
{1, 118713, 8453460, 93489572, 285010254, 285010254, 93489572, 8453460, 118713, 1},
{1, 443072, 51564829, 876484896, 4159141218, 6855899968, 4159141218, 876484896, 51564829, 443072, 1}
		

References

  • Douglas C. Montgomery and Lynwood A. Johnson, Forecasting and Time Series Analysis, MaGraw-Hill, New York, 1976, page 91.

Crossrefs

Programs

  • Mathematica
    p[x_, 0] := 1/(1 - x);
    p[x_, 1] := x/(1 - x)^2;
    p[x_, 2] := x*(1 + x)/(1 - x)^3;
    p[x_, 3] := x*(x^2 + 8*x + 1)/(1 - x)^4;
    p[x_, n_] := p[x, n] = 2*x*D[p[x, n - 1], x] - p[x, n - 2]
    a = Table[CoefficientList[FullSimplify[ExpandAll[(1 - x)^(n + 1)*p[x, n]/x]], x], {n, 1, 11}];
    Flatten[a]
    Table[Apply[Plus, CoefficientList[FullSimplify[ExpandAll[(1 - x)^(n + 1)*p[x, n]/x]], x]], {n, 1, 11}];

Formula

p(x,0)= 1/(1 - x);
p(x,1)= x/(1 - x)^2;
p(x,2)= x*(1 + x)/(1 - x)^3;
p(x,3)= x*(x^2 +8*x + 1)/(1 - x)^4;
p(x,n)= 2*x*D[p[x, n - 1], x] - p[x, n - 2]

A166349 Coefficients of numerator of recursively defined rational function: p(x,3)=x*(x^2 + 6*x + 1)/(1 - x)^4; p(x, n) = 2*x*D[p(x, n - 1), x] - p(x,n-2).

Original entry on oeis.org

1, 1, 1, 1, 6, 1, 1, 31, 31, 1, 1, 128, 382, 128, 1, 1, 493, 3346, 3346, 493, 1, 1, 1858, 24879, 54044, 24879, 1858, 1, 1, 6955, 169209, 683995, 683995, 169209, 6955, 1, 1, 25980, 1091460, 7496324, 13738230, 7496324, 1091460, 25980, 1, 1, 96985, 6809140
Offset: 1

Views

Author

Roger L. Bagula, Oct 12 2009

Keywords

Examples

			{1},
{1, 1},
{1, 6, 1},
{1, 31, 31, 1},
{1, 128, 382, 128, 1},
{1, 493, 3346, 3346, 493, 1},
{1, 1858, 24879, 54044, 24879, 1858, 1},
{1, 6955, 169209, 683995, 683995, 169209, 6955, 1},
{1, 25980, 1091460, 7496324, 13738230, 7496324, 1091460, 25980, 1},
{1, 96985, 6809140, 74898500, 227852974, 227852974, 74898500, 6809140, 96985, 1},
{1, 361982, 41561069, 702794856, 3327271698, 5480955188, 3327271698, 702794856, 41561069, 361982, 1}
		

References

  • Douglas C. Montgomery and Lynwood A. Johnson, Forecasting and Time Series Analysis, MaGraw-Hill, New York, 1976, page 91

Crossrefs

Cf. A123125.

Programs

  • Mathematica
    p[x_, 0] := 1/(1 - x);
    p[x_, 1] := x/(1 - x)^2;
    p[x_, 2] := x*(1 + x)/(1 - x)^3;
    p[x_, 3] := x*(x^2 + 6*x + 1)/(1 - x)^4;
    p[x_, n_] := p[x, n] = 2*x*D[p[x, n - 1], x] - p[x, n - 2]
    a = Table[CoefficientList[FullSimplify[ExpandAll[(1 - x)^(n + 1)*p[x, n]/x]], x], {n, 1, 11}];
    Flatten[a]
    Table[Apply[Plus, CoefficientList[FullSimplify[ExpandAll[(1 - x)^(n + 1)*p[x, n]/x]], x]], {n, 1, 11}];

Formula

p(x,0)= 1/(1 - x);
p(x,1)= x/(1 - x)^2;
p(x,2)= x*(1 + x)/(1 - x)^3;
p(x,3)= x*(x^2 +6*x + 1)/(1 - x)^4;
p(x,n)= 2*x*D[p[x, n - 1], x] - p[x, n - 2]

A167389 (arg(exp(-w)) + Im(w)) / (2*Pi), with w = W(n,-log(2)/2)/log(2), where W is the Lambert W function.

Original entry on oeis.org

2, 3, 5, 6, 8, 9, 10, 12, 13, 15, 16, 18, 19, 21, 22, 23, 25, 26, 28, 29, 31, 32, 34, 35, 36, 38, 39, 41, 42, 44, 45, 47, 48, 49, 51, 52, 54, 55, 57, 58, 60, 61, 62, 64, 65, 67, 68, 70, 71, 72, 74, 75, 77, 78, 80, 81, 83, 84, 85, 87, 88, 90, 91, 93, 94, 96, 97, 98, 100, 101
Offset: 1

Views

Author

Stephen Crowley, Nov 02 2009

Keywords

Comments

The definition seems unnecessarily obscure. What is really going on here? - N. J. A. Sloane, Nov 13 2009
The complement is A172513 with first differences in A172515. - R. J. Mathar, Feb 27 2010
The original definition was: "(argument(exp(-(log(2)+W(n, -log(sqrt(2))))/log(2)))*log(2) + Im(W(n, -log(sqrt(2)))))/(2*Pi*log(2)) where W is the Lambert W function". The expression simplifies to that given in NAME. From the documents in LINKS, it appears that W(n,z) denotes the n-th branch of a complex LambertW function. It remains to understand the intended meaning of the distinction between arg(exp(z)) and Im(z). - M. F. Hasler, Apr 12 2019
From Travis Scott, Oct 09 2022: (Start)
One's first impression of this sequence and its complement (q.v.) is that of a Beatty duet. Indeed, a(n) never strays far from ceiling(n/log(2)), differing by 1 only at the 7, 16, 25, 34, 43, 50, 52, 59, ...-th terms.
By the identity arg(e^z) = Im(z)(mod 2*Pi)_(-Pi,Pi] -- where the subscripted range indicates an offset modulo rolling over at -Pi -> Pi rather than at 2*Pi -> 0 [this can be formalized as Im(z) - 2*Pi*ceiling((Im(z) - Pi)/(2*Pi))] -- we see that the argument component of our expression doesn't add any new information but rather acts on the imaginary component as part of a quotient device that reduces to floor(Im(w)/(2*Pi)+1/2) [or to round(Im(w)/(2*Pi)), with the caveat to always round up in the unlikely event that we encounter a half-integer].
Now consider v = W(n,-log(2)/2), taking the same product logarithm as for w but not dividing the result by log(2). Our expression then simply counts branch cuts and we get n. In very abusive but perhaps more visual language, if the sequence on v keeps track of the number of times the Im(W(n,-log(2)/2))-th power of the 2*Pi-th root of unity laps the negative real axis as we follow it counterclockwise around the unit circle, then the sequence on w keeps track of how many laps that would be on a circle of radius log(2) or by a log(4)*Pi-th root of unity.
It remains to guess if this tally has an intent or if it is a tally for tally's sake. (End)

Crossrefs

Cf. A172513 (complement).

Programs

  • Maple
    seq(round(evalf((argument(exp(-(ln(2)+LambertW(n, -(1/2)*ln(2)))/ln(2)))*ln(2)+Im(LambertW(n,-(1/2)*ln(2))))/(2*Pi*ln(2)))), n = 1 .. 100)
  • Mathematica
    a[n_] := (Arg[Exp[-(Log[2] + ProductLog[n, -1/2*Log[2]])/Log[2]]]* Log[2] + Im[ProductLog[n, -1/2*Log[2]]])/(2*Pi*Log[2]); Table[a[n] // Round, {n, 1, 70}] (* Jean-François Alcover, Jun 20 2013 *)
    Table[Floor[Im@LambertW[n,-Log@2/2]/Log@4/Pi+1/2],{n,69}] (* Travis Scott, Oct 09 2022 *)

Formula

(argument(exp(-(log(2) + W(n,-(1/2)*log(2)))/log(2)))*log(2) + Im(W(n,-(1/2)*log(2))))/ (2*Pi*log(2)).
a(n) ~ n/log(2). - Vaclav Kotesovec, Jul 08 2021
a(n) = floor(Im(W(n,-log(2)/2))/(Pi*log(4))+1/2). - Travis Scott, Oct 09 2022
Previous Showing 21-30 of 1007 results. Next