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 31-40 of 106 results. Next

A211701 Rectangular array by antidiagonals, n >= 1, k >= 1: R(n,k) = n + [n/2] + ... + [n/k], where [ ]=floor.

Original entry on oeis.org

1, 2, 1, 3, 3, 1, 4, 4, 3, 1, 5, 6, 5, 3, 1, 6, 7, 7, 5, 3, 1, 7, 9, 8, 8, 5, 3, 1, 8, 10, 11, 9, 8, 5, 3, 1, 9, 12, 12, 12, 10, 8, 5, 3, 1, 10, 13, 14, 13, 13, 10, 8, 5, 3, 1, 11, 15, 16, 16, 14, 14, 10, 8, 5, 3, 1, 12, 16, 18, 18, 17, 15, 14, 10, 8, 5, 3, 1, 13, 18, 19, 20, 19
Offset: 1

Views

Author

Clark Kimberling, Apr 19 2012

Keywords

Comments

R(n,k) is the number of ordered pairs (x,y) of integers x,y satisfying 1 <= x <= k, 1 <= y <= k, and x*y <= n.
Limiting row: A000618=(1,3,5,8,10,14,16,20,...).
Row 1: A000027
Row 2: A032766
Row 3: A106252
Row 4: A211703
Row 5: A211704
R(n,n) = A000618(n)
...
For n > =1, row n is a homogeneous linear recurrence sequence of order A005728(n), and it exemplifies a certain class, C, of recurrences which are palindromic (in the sense given below). The class depends on sequences s having n-th term [(n^k)/j], where k and j are arbitrary fixed positive integers and [ ] = floor. The characteristic polynomial of s is (x^j-1)(x-1)^k, which is a palindromic polynomial (sometimes called a reciprocal polynomial). The class C consists of sequences u given by the form
...
u(n) = c(1)*[r(1)*n^k(1)] + ... + c(m)*[r(m)*n^k(m)],
...
where c(i) are integers and r(i) are rational numbers. Assume that r(i) is in lowest terms, and let j(i) be its denominator. Then the characteristic polynomial of u is the least common multiple of all the irreducible (over the integers) factors of all the polynomials (x^j(i)-1)(x-1)^k(i). As all such factors are palindromic (indeed, they are all cyclotomic polynomials), the characteristic polynomial of u is also palindromic. In other words, if the generating function of u is written as p(x)/q(x), then q(x) is a palindromic polynomial.
Thus, if q(x) = q(h)x^h + ... + q(1)x + q(0),
then (q(h), q(h-1), ..., q(1), q(0)) is palindromic, and consequently, the recurrence coefficients for u, after excluding q(0); i.e., (- q(h-1), ... - q(1)), are palindromic. For example, row 3 of A211701 has the following recurrence: u(n) = u(n-2) + u(n-3) - u(n-5), for which q(x) = x^5 - x^3 - x^2 + 1, with recurrence coefficients (0,1,1,0,-1).
Recurrence coefficients (palindromic after excluding the last term) are shown here:
for row 1: (2, -1)
for row 2: (1 ,1, -1)
for row 3: (0, 1, 1, 0, -1)
for row 4: (0, 0, 1, 1, 0, 0, -1)
for row 5: (-1, -1, 0, 1, 2, 2, 1, 0, -1, -1, -1)
for row 6: (0, -1, 0, 0, 1, 1, 1, 1, 0, 0, -1, 0, -1)
for row 7: (-1, -2, -2, -2, -1, 0, 2, 3, 4, 4, 3, 2,
0, -1, -2, -2, -2, -1, -1)
for row 13: (-2,-4,-7,-12,-18,-27,-37,-50,-64,-80,-95,
-111,-123,-133,-137,-136,-126,-110,-84,-52,
-12,32,80,127,173,213,246,269,281,281,269,
246,213,173,127,80,32,-12,-52,-84,-110,
-126,-136,-137,-133,-123,-111,-95,-80,-64,
-50,-37,-27,-18,-12,-7,-4,-2,-1)

Examples

			Northwest corner:
  1   2   3   4   5   6   7   8   9  10
  1   3   4   6   7   9  10  12  13  15
  1   3   5   7   8  11  12  14  16  18
  1   3   5   8   9  12  13  16  18  19
		

Crossrefs

Programs

  • Mathematica
    f[n_, m_] := Sum[Floor[n/k], {k, 1, m}]
    TableForm[Table[f[n, m], {m, 1, 20}, {n, 1, 16}]]
    Flatten[Table[f[n + 1 - m, m], {n, 1, 14}, {m, 1, n}]]

A049805 Triangular array T read by rows: T(n,k) is the number of Farey fractions of order n that are <= 1/k for k=1..n, for n>=1.

Original entry on oeis.org

2, 3, 2, 5, 3, 2, 7, 4, 3, 2, 11, 6, 4, 3, 2, 13, 7, 5, 4, 3, 2, 19, 10, 7, 5, 4, 3, 2, 23, 12, 8, 6, 5, 4, 3, 2, 29, 15, 10, 8, 6, 5, 4, 3, 2, 33, 17, 12, 9, 7, 6, 5, 4, 3, 2, 43, 22, 15, 11, 9, 7, 6, 5, 4, 3, 2, 47, 24, 16, 12, 10, 8, 7, 6, 5, 4, 3, 2
Offset: 1

Views

Author

Keywords

Comments

So, T(n, k) is also the index of fraction 1/k in the Farey fractions of order n. - Michel Marcus, Jun 27 2014
Start with array [1,k], and for each integer i from k+1 to n, insert i between every consecutive pair that sums to i. The length of the resulting array is T(n,k). For example, with n=5 and k=2 we have [1,2] -> [1,3,2] -> [1,4,3,2] -> [1,5,4,3,5,2] which has length 6, so T(5,2)=6. This is from a discovery of Leo Moser as described by Martin Gardner. - Curtis Bechtel, Oct 05 2024

Examples

			Rows: {2}; {3,2}; {5,3,2}; ...; e.g. in row 3, 5 reduced fractions (0/1,1/3,1/2,2/3,1/1) are <=1; 3 are <=1/2; 2 are <=1/3.
Triangle starts:
  2;
  3, 2;
  5, 3, 2;
  7, 4, 3, 2;
  11, 6, 4, 3, 2;
  13, 7, 5, 4, 3, 2;
  ...
		

References

  • Martin Gardner, The Last Recreations, 1997, chapter 12.

Crossrefs

First column: T(n, 1) = A005728(n+1).

Programs

  • Mathematica
    T[n_, k_] := Count[FareySequence[n], f_ /; f <= 1/k];
    Table[T[n, k], {n, 1, 12}, {k, 1, n}] // Flatten (* Jean-François Alcover, Sep 25 2018 *)
  • PARI
    row(nn) = my(frow = farey(n)); for (k=1, n, print1(vecsearch(frow, 1/k), ", ");); \\ Michel Marcus, Jun 27 2014

A359690 Number of vertices in a regular drawing of a complete bipartite graph where the vertex positions on each part equal the Farey series of order n.

Original entry on oeis.org

5, 13, 69, 289, 1971, 3997, 20371, 45751, 120957, 205299, 629847, 897801, 2334409, 3461459, 5517131, 8468061
Offset: 1

Views

Author

Keywords

Comments

The number of vertices along each edge is A005728(n). No formula for a(n) is known.

Crossrefs

Cf. A359691 (crossings), A359692 (regions), A359693 (edges), A359694 (k-gons), A005728, A331755, A359654, A358887, A358883, A006842, A006843.

Formula

a(n) = A359693(n) - A359692(n) + 1 by Euler's formula.

A049806 Number of Farey fractions of order n that are <=1/2; cf. A049805.

Original entry on oeis.org

1, 2, 3, 4, 6, 7, 10, 12, 15, 17, 22, 24, 30, 33, 37, 41, 49, 52, 61, 65, 71, 76, 87, 91, 101, 107, 116, 122, 136, 140, 155, 163, 173, 181, 193, 199, 217, 226, 238, 246, 266, 272, 293, 303, 315, 326, 349, 357, 378, 388, 404, 416, 442
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Farey[n_] := Union[Flatten[Join[{0}, Table[a/b, {b, n}, {a, b}]]]]; f[n_] := Length@ Select[ Farey@ n, # <= 1/2 &]; Array[f, 53] (* Robert G. Wilson v, Nov 14 2012 *)
    a[n_] := Count[FareySequence[n], f_ /; f <= 1/2]; Array[a, 53] (* Jean-François Alcover, Sep 25 2018 *)

A358883 The number of vertices in a Farey diagram of order (n,n).

Original entry on oeis.org

5, 37, 313, 1253, 4977, 11253, 31393, 61409, 125525, 212785, 407757, 609361, 1059497, 1541005, 2328621, 3282329, 5006113, 6538721, 9545621, 12352197
Offset: 1

Views

Author

Keywords

Comments

See the linked references for further details.
The first diagram where not all edge points are connected is n = 3. For example a line connecting points (0,1/3) and (1/3,0) has equation 3*y - 6*x - 1 = 0, and as one of the x or y coefficients is greater than n (3 in this case) the line is not included.

Crossrefs

Cf. A358882 (regions), A358884 (edges), A358885 (k-gons), A006842, A006843, A005728, A358887.
See A358298 for definition of Farey diagram Farey(m,n).
The Farey Diagrams Farey(m,n) are studied in A358298-A358307 and A358882-A358885, the Completed Farey Diagrams of order (m,n) in A358886-A358889.

Formula

a(n) = A358884(n) - A358882(n) + 1 by Euler's formula.

A049807 a(n)=number of Farey fractions of order n that are <=1/3; cf. A049805.

Original entry on oeis.org

1, 1, 2, 3, 4, 5, 7, 8, 10, 12, 15, 16, 20, 22, 25, 28, 33, 35, 41, 43, 47, 51, 58, 61, 68, 72, 78, 82, 91, 93, 103, 108, 115, 121, 129, 133, 145, 151, 159, 165, 178, 182, 196, 202, 210, 218, 233, 238, 252, 258, 269, 277, 294, 300
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Farey[n_] := Union[Flatten[Join[{0}, Table[a/b, {b, n}, {a, b}]]]]; f[n_] := Length@ Select[ Farey@ n, # <= 1/3 &]; Array[f, 54] (* Robert G. Wilson v, Nov 14 2012 *)

A049808 a(n)=number of Farey fractions of order n that are <=1/4; cf. A049805.

Original entry on oeis.org

1, 1, 1, 2, 3, 4, 5, 6, 8, 9, 11, 12, 15, 17, 19, 21, 25, 26, 30, 32, 36, 39, 44, 46, 51, 54, 58, 61, 68, 70, 77, 81, 87, 91, 97, 100, 109, 114, 120, 124, 134, 136, 146, 151, 157, 163, 174, 178, 189, 194, 202, 208, 221, 226, 236, 242
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Farey[n_] := Union[Flatten[Join[{0}, Table[a/b, {b, n}, {a, b}]]]]; f[n_] := Length@ Select[ Farey@ n, # <= 1/4 &]; Array[f, 56] (* Robert G. Wilson v, Nov 14 2012 *)

A049809 a(n)=number of Farey fractions of order n that are <=1/5; cf. A049805.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 9, 10, 12, 13, 15, 17, 20, 21, 24, 26, 29, 31, 35, 36, 40, 43, 47, 50, 55, 56, 62, 65, 69, 72, 77, 80, 87, 91, 96, 99, 107, 109, 117, 121, 126, 131, 140, 143, 151, 155, 162, 167, 177, 180, 188, 193, 201, 207
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Farey[n_] := Union[Flatten[Join[{0}, Table[a/b, {b, n}, {a, b}]]]]; f[n_] := Length@ Select[ Farey@ n, # <= 1/5 &]; Array[f, 58] (* Robert G. Wilson v, Nov 14 2012 *)

A049810 a(n)=number of Farey fractions of order n that are <=1/6; cf. A049805.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 13, 14, 16, 17, 20, 22, 24, 26, 29, 30, 34, 36, 39, 41, 45, 46, 51, 54, 58, 61, 65, 67, 73, 76, 80, 82, 88, 90, 97, 101, 105, 109, 116, 119, 126, 129, 135, 139, 147, 150, 158, 162, 168, 173, 182
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Farey[n_] := Union[Flatten[Join[{0}, Table[a/b, {b, n}, {a, b}]]]]; f[n_] := Length@ Select[ Farey@ n, # <= 1/6 &]; Array[f, 59] (* Robert G. Wilson v, Nov 14 2012 *)

A049811 a(n)=number of Farey fractions of order n that are <=1/7; cf. A049805.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 14, 15, 17, 18, 20, 22, 25, 26, 29, 31, 33, 35, 39, 40, 44, 46, 49, 51, 55, 57, 62, 65, 69, 71, 76, 78, 84, 87, 90, 93, 99, 101, 107, 110, 115, 119, 126, 129, 135, 138, 144, 148, 156, 158
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Farey[n_] := Union[Flatten[Join[{0}, Table[a/b, {b, n}, {a, b}]]]]; f[n_] := Length@ Select[ Farey@ n, # <= 1/7 &]; Array[f, 60] (* Robert G. Wilson v, Nov 14 2012 *)
Previous Showing 31-40 of 106 results. Next