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

A003654 Squarefree integers m such that the fundamental unit of Q(sqrt(m)) has norm -1. Also, squarefree integers m such that the Pell equation x^2 - m*y^2 = -1 is soluble.

Original entry on oeis.org

2, 5, 10, 13, 17, 26, 29, 37, 41, 53, 58, 61, 65, 73, 74, 82, 85, 89, 97, 101, 106, 109, 113, 122, 130, 137, 145, 149, 157, 170, 173, 181, 185, 193, 197, 202, 218, 226, 229, 233, 241, 257, 265, 269, 274, 277, 281, 290, 293, 298, 313, 314, 317, 337, 346, 349, 353, 362
Offset: 1

Views

Author

N. J. A. Sloane, Mira Bernstein. Entry revised by N. J. A. Sloane, Jun 11 2012

Keywords

Comments

The squarefree elements of A003814 and A172000. - Max Alekseyev, Jun 01 2009
Together with {1} and A031398 forms a disjoint partition of A020893. That is, A020893 = {1} U A003654 U A031398. - Max Alekseyev, Mar 09 2010
Squarefree integers m such that Q(sqrt(m)) contains the infinite continued fraction [k, k, k, k, k, ...] for some positive integer k. For example, Q(sqrt(5)) contains [1, 1, 1, 1, 1, ...] which equals (1 + sqrt(5))/2. - Greg Dresden, Jul 23 2010

References

  • D. A. Buell, Binary Quadratic Forms. Springer-Verlag, NY, 1989, pp. 224-241.
  • M. Kraitchik, Recherches sur la Théorie des Nombres. Gauthiers-Villars, Paris, Vol. 1, 1924, Vol. 2, 1929, see Vol. 1, p. 46.
  • D. H. Lehmer, Guide to Tables in the Theory of Numbers. Bulletin No. 105, National Research Council, Washington, DC, 1941, p. 56.
  • W. Paulsen, Calkin-Wilf sequences for irrational numbers, Fib. Q., 61:1 (2023), 51-59.
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Programs

  • Maple
    isA003654 := proc(n)
        local cf,p ;
        if not numtheory[issqrfree](n) then
            return false;
        end if;
        for p in numtheory[factorset](n) do
            if modp(p,4) = 3 then
                return false;
            end if;
        end do:
        cf := numtheory[cfrac](sqrt(n),'periodic','quotients') ;
        type( nops(op(2,cf)),'odd') ;
    end proc:
    A003654 := proc(n)
        option remember;
        local a;
        if n = 1 then
            2;
        else
            for a from procname(n-1)+1 do
                if isA003654(a) then
                    return a;
                end if;
            end do:
        end if;
    end proc:
    seq(A003654(n),n=1..40) ; # R. J. Mathar, Oct 19 2014
  • Mathematica
    Reap[For[n = 2, n < 1000, n++, If[SquareFreeQ[n], sol = Solve[x^2 - n y^2 == -1, {x, y}, Integers]; If[sol != {}, Sow[n]]]]][[2, 1]] (* Jean-François Alcover, Mar 24 2020 *)

Extensions

Edited by Max Alekseyev, Mar 17 2010

A031398 Squarefree n with no 4k+3 factors such that Pell equation x^2 - n y^2 = -1 is insoluble.

Original entry on oeis.org

34, 146, 178, 194, 205, 221, 305, 377, 386, 410, 466, 482, 505, 514, 545, 562, 674, 689, 706, 745, 793, 802, 866, 890, 898, 905, 1154, 1186, 1202, 1205, 1234, 1282, 1345, 1346, 1394, 1405, 1469, 1513, 1517, 1537, 1538, 1717, 1762, 1802, 1858
Offset: 1

Views

Author

Keywords

Comments

Or, numbers n which are the sum of two relatively-prime squares but for which x^2 - n*y^2 does not represent -1.
Together with {1} and A003654 forms a disjoint partition of A020893. That is, A020893 = {1} U A003654 U A031398. - Max Alekseyev, Mar 09 2010

References

  • Harvey Cohn, "Advanced Number Theory".

Crossrefs

Programs

  • Mathematica
    sel = Select[Range[2000], SquareFreeQ[#] && FreeQ[Mod[FactorInteger[#][[All, 1]], 4], 3]&]; r[n_] := Reduce[x^2-n*y^2 == -1, {x, y}, Integers]; Reap[For[n=1, n <= Length[sel], n++, an = sel[[n]]; If[r[an] === False, Print[an]; Sow[an]]]][[2, 1]] (* Jean-François Alcover, Feb 04 2014 *)

Extensions

Edited by N. J. A. Sloane, Apr 28 2008, at the suggestion of Artur Jasinski

A031399 Numbers n with no 4k+3 factors such that Pell equation x^2 - n y^2 = -1 insoluble.

Original entry on oeis.org

4, 8, 16, 20, 25, 32, 34, 40, 52, 64, 68, 80, 100, 104, 116, 128, 136, 146, 148, 160, 164, 169, 178, 194, 200, 205, 208, 212, 221, 232, 244, 256, 260, 272, 289, 292, 296, 305, 320, 328, 340, 356, 377, 386, 388, 400, 404, 410, 416, 424, 436, 452
Offset: 1

Views

Author

Keywords

References

  • "Advanced Number Theory" by Harvey Cohn.

Crossrefs

Showing 1-3 of 3 results.