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

A192787 Number of distinct solutions of 4/n = 1/a + 1/b + 1/c in positive integers satisfying 1 <= a <= b <= c.

Original entry on oeis.org

0, 1, 3, 3, 2, 8, 7, 10, 6, 12, 9, 21, 4, 17, 39, 28, 4, 26, 11, 36, 29, 25, 21, 57, 10, 20, 29, 42, 7, 81, 19, 70, 31, 25, 65, 79, 9, 32, 73, 96, 7, 86, 14, 62, 93, 42, 34, 160, 18, 53, 52, 59, 13, 89, 98, 136, 41, 33, 27, 196, 11, 37, 155, 128, 49, 103, 17, 73, 55, 185, 40, 211, 7, 32, 129, 80, 97, 160, 37, 292
Offset: 1

Views

Author

Keywords

Comments

The Erdős-Straus conjecture is that a(n) > 0 for n > 1. Swett verified the conjecture for n < 10^14.
Vaughan shows that the number of n < x with a(n) = 0 is at most x exp(-c * (log x)^(2/3)) for some c > 0.
See A073101 for the 4/n conjecture due to Erdős and Straus.

Examples

			a(1) = 0, since 4/1 = 4 cannot be expressed as the sum of three reciprocals.
a(2) = 1 because 4/2 = 1/1 + 1/2 + 1/2, and there are no other solutions.
a(3) = 3 since 4/3 = 1 + 1/4 + 1/12 = 1 + 1/6 + 1/6 = 1/2 + 1/2 + 1/3.
a(4) = 3 = A002966(3).
		

Crossrefs

A292581 counts the solutions with multiplicity. A073101 counts solutions with a, b, and c distinct.
Cf. A337432 (solutions with minimal c).

Programs

  • Maple
    A192787 := proc(n) local t,a,b,t1,count; t:= 4/n; count:= 0; for a from floor(1/t)+1 to floor(3/t) do t1:= t - 1/a; for b from max(a,floor(1/t1)+1) to floor(2/t1) do if type( 1/(t1 - 1/b),integer) then count:= count+1; end if end do end do; count; end proc; # Robert Israel, Feb 19 2013
  • Mathematica
    f[n_] := Length@ Solve[ 4/n == 1/x + 1/y + 1/z && 1 <= x <= y <= z, {x, y, z}, Integers]; Array[f, 70] (* Allan C. Wechsler and Robert G. Wilson v, Jul 19 2013 *)
  • PARI
    a(n, show=0)=my(t=4/n, t1, s, c); for(a=1\t+1, 3\t, t1=t-1/a; for(b=max(1\t1+1, a), 2\t1, c=1/(t1-1/b); if(denominator(c)==1&&c>=b, s++; show&&print("4/",n," = 1/",a," + 1/",b," + 1/",c)))); s \\ variant with print(...) added by Robert Munafo, Feb 19 2013, both combined through option "show" by M. F. Hasler, Jul 02 2022

Extensions

Corrected at the suggestion of Allan C. Wechsler by Charles R Greathouse IV, Feb 19 2013
Examples and cross-references added by M. F. Hasler, Feb 19 2013

A004194 Number of partitions of 1/n into 3 reciprocals of positive integers.

Original entry on oeis.org

3, 10, 21, 28, 36, 57, 42, 70, 79, 96, 62, 160, 59, 136, 196, 128, 73, 211, 80, 292, 245, 157, 93, 366, 156, 174, 230, 340, 106, 497, 90, 269, 322, 211, 453, 538, 85, 216, 378, 604, 121, 623, 104, 473, 648, 204, 135, 706, 227, 437, 387, 467, 125, 601, 561, 783, 385
Offset: 1

Views

Author

Scott Aaronson (philomath(AT)voicenet.com)

Keywords

Comments

Number of ways to express 1/n as Egyptian fractions in just three terms; i.e., 1/n = 1/x + 1/y + 1/z satisfying 1<=x<=y<=z.
See A073101 for the 4/n conjecture due to Erdős and Straus.

Crossrefs

Programs

  • Mathematica
    a[n_] := Length@ Solve[ 1/n == 1/x + 1/y + 1/z && 1 <= x <= y <= z, {x, y, z}, Integers]; Array[a, 70] (* Allan C. Wechsler and Robert G. Wilson v, Aug 17 2013 *)
  • PARI
    a(n)=my(t=1/n, t1, s, c); for(a=1\t+1, 3\t, t1=t-1/a; for(b=max(1\t1+1, a), 2\t1, c=1/(t1-1/b); if(denominator(c)==1&&c>=b, s++))); s \\ Charles R Greathouse IV, Jun 12 2013

Extensions

More terms from David W. Wilson, Aug 15 1996

A226645 Number of ways to express 6/n as Egyptian fractions in just three terms; i.e., 6/n = 1/x + 1/y + 1/z satisfying 1<=x<=y<=z.

Original entry on oeis.org

0, 1, 1, 3, 3, 3, 1, 6, 8, 10, 7, 10, 1, 9, 12, 20, 8, 21, 2, 21, 17, 16, 11, 28, 7, 11, 26, 33, 9, 36, 3, 31, 25, 24, 60, 57, 2, 11, 20, 68, 10, 42, 6, 35, 81, 23, 15, 70, 10, 37, 25, 51, 14, 79, 33, 76, 32, 30, 20, 96, 2, 17, 86, 65, 48, 62, 9, 50, 42, 138, 35, 160, 2, 18, 53, 51, 52, 59, 8, 142, 89, 34, 23, 136, 37, 24, 33, 140, 23, 196, 30, 46, 37, 32, 75, 128, 5, 43, 103, 98
Offset: 1

Views

Author

Keywords

Comments

See A073101 for the 4/n conjecture due to Erdős and Straus.

Crossrefs

Programs

  • Mathematica
    a[n_] := Length@ Solve[ 6/n == 1/x + 1/y + 1/z && 1 <= x <= y <= z, {x, y, z}, Integers]; Array[a, 70]

A226641 Number of ways to express 2/n as Egyptian fractions in just three terms; i.e., 2/n = 1/x + 1/y + 1/z satisfying 1<=x<=y<=z.

Original entry on oeis.org

1, 3, 8, 10, 12, 21, 17, 28, 26, 36, 25, 57, 20, 42, 81, 70, 25, 79, 32, 96, 86, 62, 42, 160, 53, 59, 89, 136, 33, 196, 37, 128, 103, 73, 185, 211, 32, 80, 160, 292, 40, 245, 40, 157, 235, 93, 60, 366, 85, 156, 147, 174, 42, 230, 223, 340, 143, 106, 76, 497, 34, 90, 331, 269, 206, 322, 50, 211, 175, 453, 72, 538, 37, 85, 332, 216, 260, 378, 69, 604, 167, 121, 79, 623, 204, 104, 203, 473, 59, 648, 253, 204, 166, 135, 318, 706, 46, 227, 427, 437
Offset: 1

Views

Author

Keywords

Crossrefs

See A073101 for the 4/n conjecture due to Erdős and Straus.

Programs

  • Mathematica
    a[n_] := Length@ Solve[ 2/n == 1/x + 1/y + 1/z && 1 <= x <= y <= z, {x, y, z}, Integers]; Array[a, 70]

A226642 Number of ways to express 3/n as Egyptian fractions in just three terms; i.e., 3/n = 1/x + 1/y + 1/z satisfying 1<=x<=y<=z.

Original entry on oeis.org

1, 3, 3, 6, 10, 10, 9, 20, 21, 21, 16, 28, 11, 33, 36, 31, 24, 57, 11, 68, 42, 35, 23, 70, 37, 51, 79, 76, 30, 96, 17, 65, 62, 50, 138, 160, 18, 51, 59, 142, 34, 136, 24, 140, 196, 46, 32, 128, 43, 98, 73, 111, 46, 211, 111, 192, 80, 63, 46, 292, 24, 81, 245
Offset: 1

Views

Author

Keywords

Comments

See A073101 for the 4/n conjecture due to Erdős and Straus.

Crossrefs

Programs

  • Mathematica
    f[n_] := Length@ Solve[ 3/n == 1/x + 1/y + 1/z && 1 <= x <= y <= z, {x, y, z}, Integers]; Array[f, 70]

A226646 Number of ways to express m/n as Egyptian fractions in just three terms, that is, m/n = 1/x + 1/y + 1/z satisfying 1 <= x <= y <= z and read by antidiagonals.

Original entry on oeis.org

3, 1, 10, 1, 3, 21, 0, 3, 8, 28, 0, 1, 3, 10, 36, 0, 1, 3, 6, 12, 57, 0, 1, 2, 3, 10, 21, 42, 0, 0, 1, 4, 2, 10, 17, 70, 0, 0, 1, 3, 3, 8, 9, 28, 79, 0, 0, 0, 1, 3, 4, 7, 20, 26, 96, 0, 0, 1, 1, 2, 3, 4, 10, 21, 36, 62, 0, 0, 0, 1, 1, 7, 1, 7, 6, 21, 25, 160, 0, 0, 0, 1, 0, 3, 3, 6, 12, 12, 16, 57, 59
Offset: 1

Views

Author

Keywords

Comments

See A073101 for the 4/n conjecture due to Erdös and Straus.
The first upper diagonal is 10, 8, 6, 2, 4, 1, 2, 1, 2, 0, 3, 0, 0, 1, 0, 0, 1, 0, 1, 0,... .
The main diagonal is: 3, 3, 3, 3, 3, 3, ... since 1 = 1/2 + 1/3 + 1/6 = 1/2 + 1/4 + 1/4 = 1/3 + 1/3 + 1/3. See A002966(3).
The first lower diagonal is 1, 3, 3, 4, 3, 7, 3, 5, 4, 6, 3, 10, 3, 6, 6, 6, 3, 9, 3, 9, ... .
The antidiagonal sum is 3, 11, 25, 39, 50, 79, 79, 104, 131, 157, 140, 229, 169, 220, 295, 282, ... .

Examples

			../n
m/ 1...2...3...4...5...6...7...8...9..10..11...12..13...14...15 =Allocation nbr.
.1 3..10..21..28..36..57..42..70..79..96..62..160..59..136..196 A004194
.2 1...3...8..10..12..21..17..28..26..36..25...57..20...42...81 A226641
.3 1...3...3...6..10..10...9..20..21..21..16...28..11...33...36 A226642
.4 0...1...3...3...2...8...7..10...6..12...9...21...4...17...39 A192787
.5 0...1...2...4...3...4...4...7..12..10...3...17...6...21...21 A226644
.6 0...1...1...3...3...3...1...6...8..10...7...10...1....9...12 A226645
.7 0...0...1...1...2...7...3...2...3...5...2...13...8...10....9 n/a
.8 0...0...0...1...1...3...3...3...1...2...0....8...3....7...19 n/a
.9 0...0...1...1...0...3...2...5...3...2...0....6...2....4...10 n/a
10 0...0...0...1...1...2...0...4...4...3...0....4...1....4....8 n/a
Triangle (by antidiagonals):
  {3},
  {1, 10},
  {1, 3, 21},
  {0, 3, 8, 28},
  {0, 1, 3, 10, 36},
  {0, 1, 3, 6, 12, 57},
  ...
		

Crossrefs

Programs

  • Mathematica
    f[m_, n_] := Length@ Solve[m/n == 1/x + 1/y + 1/z && 1 <= x <= y <= z, {x, y, z}, Integers]; Table[f[n, m - n + 1], {m, 12}, {n, m, 1, -1}] // Flatten
Showing 1-6 of 6 results.