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

A135791 Positive numbers of the form x^5-10x^3*y^2+5x*y^4 (where x,y are integers and x>y).

Original entry on oeis.org

404, 1900, 3647, 5646, 12928, 13412, 14050, 27688, 30609, 36413, 45716, 51804, 60800, 74576, 90050, 98172
Offset: 1

Views

Author

Artur Jasinski, Nov 29 2007

Keywords

Comments

See A135792, union A135791 and A135792 see A135793. Squares of these numbers are of the form N^5-M^2 (where N belongs to A135787 and M to A057102) Proof uses: (x^5-10x^3 y^2+5xy^4)^2=(x^2+y^2)^5-(5x^4y-10x^2y^3+y^5)^2. [This line needs editing! - N. J. A. Sloane, Dec 04 2007]
Refers to A057102, which had an incorrect description and has been replaced by A256418. As a result the present sequence should be re-checked. - N. J. A. Sloane, Apr 06 2015

Crossrefs

Cf. A000404, A050803, A057102, A135784, A060803, A135786, A135787, A135789, A135790, A135792, A135793.

Programs

  • Mathematica
    a = {}; Do[Do[w = x^5 - 10x^3 y^2 + 5x y^4; If[w > 0 && w < 100000, AppendTo[a, w]], {x, y, 1000}], {y, 1, 1000}]; Union[a]

A135792 Positive numbers of the form x^5-10x^3*y^2+5x*y^4 (where x,y are integers and y>x).

Original entry on oeis.org

41, 122, 316, 1121, 1312, 1900, 2868, 2876, 3904, 4282, 6121, 9963, 10112, 11516, 17684, 19841, 20122, 23028, 23807, 25525, 29646, 31996, 35872, 41984, 44403, 49001, 59162, 60800, 65900, 71996, 76453, 76788, 80404, 91776, 92032
Offset: 1

Views

Author

Artur Jasinski, Nov 29 2007

Keywords

Comments

Refers to A057102, which had an incorrect description and has been replaced by A256418. As a result the present sequence should be re-checked. - N. J. A. Sloane, Apr 06 2015

Crossrefs

Cf. A000404, A050803, A057102, A135784, A060803, A135786, A135787, A135789, A135790, A135791, A135793.

Programs

  • Mathematica
    a = {}; Do[Do[w = x^5 - 10x^3 y^2 + 5x y^4; If[w > 0 && w < 100000, AppendTo[a, w]], {y, x, 1000}], {x, 1, 1000}]; Union[a]

A135796 Numbers of the form 4x^3y+4y x^3 (where x,y are positive integers).

Original entry on oeis.org

8, 40, 120, 128, 272, 312, 520, 640, 648, 888, 1160, 1200, 1400, 1920, 2040, 2048, 2080, 2952, 2968, 3240, 3280, 4040, 4352, 4872, 4992, 5000, 5368, 6120, 6960, 7008, 7280, 7320, 8320, 8840, 9720
Offset: 1

Views

Author

Artur Jasinski, Nov 29 2007

Keywords

Comments

Squares of these numbers are of the form N^4-M^2 (where N belongs to A135786 and M to A135797) Proof uses: (4x^3y+4xy^3)^2=(x^2-y^2)^4+(x^4+6x^2y^2+y^4)^2.
Refers to A057102, which had an incorrect description and has been replaced by A256418. As a result the present sequence should be re-checked. - N. J. A. Sloane, Apr 06 2015

Crossrefs

Cf. A000404, A050803, A057102, A135784, A060803, A135786, A135787, A135789, A135790, A135791, A135792, A135793, A135795, A135796, A135797.

Programs

  • Mathematica
    a = {}; Do[Do[w = 4x^3y + 4x y^3; If[w < 10000, AppendTo[a, w]], {x, y, 1000}], {y, 1, 1000}]; Union[a] (*Artur Jasinski*)

A135797 Numbers of the form x^4 + 6*x^2*y^2 + y^4 (where x,y are positive integers).

Original entry on oeis.org

8, 41, 128, 136, 313, 353, 648, 656, 776, 1201, 1241, 1513, 2048, 2056, 2176, 2696, 3281, 3321, 3593, 4481, 5000, 5008, 5128, 5648, 7048, 7321, 7361, 7633, 8521
Offset: 1

Views

Author

Artur Jasinski, Nov 29 2007

Keywords

Comments

Squares of these numbers are of the form N^4-M^2 (where N belongs to A135786 and M to A135796). Proof uses: (x^4+6*x^2*y^2+y^4)^2 = (x^2-y^2)^4+(4*x^3*y+4*x*y^3)^2.
Refers to A057102, which had an incorrect description and has been replaced by A256418. As a result the present sequence should be re-checked. - N. J. A. Sloane, Apr 06 2015

Crossrefs

Cf. A000404, A050803, A057102, A135784, A060803, A135786, A135787, A135789, A135790, A135791, A135792, A135793, A135795, A135796, A135796.

Programs

  • Mathematica
    a = {}; Do[Do[w = x^4 + 6x^2 y^2 + y^4; If[w < 10000, AppendTo[a, w]], {x, y, 1000}], {y, 1, 1000}]; Union[a]
(* alternate program *)
Union[Select[#[[1]]^4+6#[[1]]^2 #[[2]]^2+#[[2]]^4&/@Tuples[Range[ 1000],2], #<10000&]] (* Harvey P. Dale, Oct 07 2012 *)

A135794 Numbers of the form x^5 + 10*x^3*y^2 + 5*x*y^4 (where x,y are integers).

Original entry on oeis.org

16, 121, 122, 496, 512, 528, 1441, 1562, 1563, 1684, 3376, 3872, 3888, 3904, 4400, 6841, 8282, 8403, 8404, 8525, 9966, 12496, 15872, 16368, 16384, 16400, 16896, 20272, 21121, 27962, 29403, 29524, 29525, 29646, 31087, 33616, 37928, 46112
Offset: 1

Views

Author

Artur Jasinski, Nov 29 2007, Oct 10 2008

Keywords

Comments

Squares of these numbers are of the form N^5+M^2 (where N belongs to A000404 and M to A135795). Proof uses: (x^5+10x^3 y^2+5xy^4)^2=(x^2-y^2)^5+(5x^4y+10x^2y^3+y^5)^2.
Also numbers of the form ((y + x)^5 - (y - x)^5)/2 = x^5 + 10*x^3*y^2 + 5*x*y^4. - Artur Jasinski, Oct 10 2008
Refers to A057102, which had an incorrect description and has been replaced by A256418. As a result the present sequence should be re-checked. - N. J. A. Sloane, Apr 06 2015

Crossrefs

Cf. A000404, A050803, A057102, A135784, A060803, A135786, A135787, A135789, A135790, A135791, A135792, A135793, A135795, A135796.

Programs

  • Mathematica
    a = {}; Do[Do[w = x^5 + 10x^3 y^2 + 5x y^4; If[w < 100000, AppendTo[a, w]], {x, 1, 1000}], {y, 1, 1000}]; Union[a]
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.