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.

A053375 Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of y for n == 3 mod 4.

Original entry on oeis.org

1, 3, 3, 1, 39, 5, 273, 1, 4, 531, 7, 7, 12, 69, 5967, 413, 9, 9, 3, 165, 4, 22419, 93, 28, 105, 11, 11, 419775, 927, 6578829, 1, 140634693, 20, 105, 5019135, 13, 313191, 36, 123, 650783, 1, 1153080099, 4, 19162705353, 3, 5, 15, 15, 5, 3
Offset: 0

Views

Author

N. J. A. Sloane, Jan 06 2000

Keywords

Comments

Entries are indexed by values of n from A039957.

References

  • R. A. Mollin, Quadratics, CRC Press, 1996, Tables B1-B3.

Crossrefs

Programs

A053373 Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of y for n == 1 (mod 4).

Original entry on oeis.org

1, 1, 2, 1, 1, 8, 2, 10, 1, 40, 5, 2, 3, 250, 1, 1, 106, 3, 1138, 2, 8, 25, 146, 2968, 15, 298, 16, 2, 5, 17, 1856, 1, 1, 9384, 97, 10, 253970, 2, 72664, 3, 6440, 5, 521904, 1, 1, 3034, 5, 9148450, 1084152, 117, 2, 746, 10, 88, 157, 126890, 1, 1, 1311, 56, 287
Offset: 1

Views

Author

N. J. A. Sloane, Jan 06 2000

Keywords

Comments

Entries are indexed by values of n from A039955.
Subsequence of A077058 excluding terms for which A077425(n) is not squarefree. - Max Alekseyev, Dec 12 2012

References

  • R. A. Mollin, Quadratics, CRC Press, 1996, Tables B1-B3.

Crossrefs

Programs

  • Mathematica
    2*NumberFieldFundamentalUnits[ Sqrt[#] ][[1, 2, 2]] & /@ Select[ Range[5, 309, 4], SquareFreeQ ]  (* Jean-François Alcover, Jul 09 2013 *)
  • PARI
    forstep(n=5,1000,4, if(!issquarefree(n),next); print1( 2*polcoeff(lift(bnfinit(x^2-n).fu[1]),1), ", " )) /* Max Alekseyev */

A053371 Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of x for n == 2 mod 4.

Original entry on oeis.org

1, 5, 3, 15, 197, 5, 11, 35, 37, 13, 24335, 99, 63, 65, 251, 43, 53, 9, 10405, 2143295, 101, 4005, 21, 1025, 306917, 11, 57, 145925, 47, 143, 145, 21295, 7743, 1700902565, 13, 1451, 1601, 27, 7501, 52021, 195, 3141, 59535, 29
Offset: 0

Views

Author

N. J. A. Sloane, Jan 06 2000

Keywords

Comments

Entries are indexed by values of n from A039956.

References

  • R. A. Mollin, Quadratics, CRC Press, 1996, Tables B1-B3.

Crossrefs

Programs

  • Mathematica
    NumberFieldFundamentalUnits[ Sqrt[#] ][[1, 2, 1]] & /@ Select[Range[2, 210, 2], SquareFreeQ] (* Jean-François Alcover, Jul 09 2013 *)

A053372 Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of x for n == 3 mod 4.

Original entry on oeis.org

2, 8, 10, 4, 170, 24, 1520, 6, 25, 3482, 48, 50, 89, 530, 48842, 3480, 80, 82, 28, 1574, 39, 227528, 962, 295, 1126, 120, 122, 4730624, 10610, 77563250, 12, 1728148040, 249, 1324, 64080026, 168, 4190210, 487, 1682, 8994000, 14
Offset: 0

Views

Author

N. J. A. Sloane, Jan 06 2000

Keywords

Comments

Entries are indexed by values of n from A039957.

References

  • R. A. Mollin, Quadratics, CRC Press, 1996, Tables B1-B3.

Crossrefs

Programs

  • Mathematica
    NumberFieldFundamentalUnits[ Sqrt[#] ][[1, 2, 1]] & /@ Select[Range[3, 195, 4], SquareFreeQ ] (* Jean-François Alcover, Jul 09 2013 *)

A053374 Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of y for n == 2 mod 4.

Original entry on oeis.org

1, 2, 1, 4, 42, 1, 2, 6, 6, 2, 3588, 13, 8, 8, 30, 5, 6, 1, 1122, 221064, 10, 389, 2, 96, 28254, 1, 5, 12606, 4, 12, 12, 1716, 616, 132015642, 1, 110, 120, 2, 550, 3774, 14, 221, 4148, 2, 47533775646, 17, 10, 1, 6, 756, 5662, 16, 16, 6485718, 42, 85, 150
Offset: 0

Views

Author

N. J. A. Sloane, Jan 06 2000

Keywords

Comments

Entries are indexed by values of n from A039956.

References

  • R. A. Mollin, Quadratics, CRC Press, 1996, Tables B1-B3.

Crossrefs

Programs

  • Mathematica
    sf = Select[2*Range[0, 139], SquareFreeQ]; NumberFieldFundamentalUnits[Sqrt[#]][[1, 2, 2]]& /@ sf (* Jean-François Alcover, May 31 2013 *)
Showing 1-5 of 5 results.