A084917 Positive numbers of the form 3*y^2 - x^2.
2, 3, 8, 11, 12, 18, 23, 26, 27, 32, 39, 44, 47, 48, 50, 59, 66, 71, 72, 74, 75, 83, 92, 98, 99, 104, 107, 108, 111, 122, 128, 131, 138, 143, 146, 147, 156, 162, 167, 176, 179, 183, 188, 191, 192, 194, 200, 207, 218, 219, 227, 234, 236, 239, 242, 243, 251, 263, 264, 275, 282, 284
Offset: 1
Examples
11 is in the sequence because 3 * 3^2 - 4^2 = 27 - 16 = 11. 12 is in the sequence because 3 * 4^2 - 6^2 = 48 - 36 = 12. 13 is not in the sequence because there is no solution in integers to 3y^2 - x^2 = 13. From _Wolfdieter Lang_, Jan 09 2015: (Start) Referring to the Jan 09 2015 comment above. k = 1 is out because there is no integer solution of (i) 0 < y^2 <= 1/2. For k = 4, 5, 6, and 7 one has y = 1, x = 0, 1 (and the negative of this). But x^2 - 3 is not -k for these k and x values. Therefore, these k values are missing. For k = 8 .. 16 one has y = 1, 2 and x = 0, 1, 2. Only y = 2 has a chance and only for k = 8, 11 and 12 the x value 2, 1 and 0, respectively, solves x^2 - 12 = -k. Therefore 9, 10, 13, 14, 15, 16 are missing. ... (End)
References
- T. Nagell, Introduction to Number Theory, Chelsea Publishing Company, New York, 1964.
Links
- Sci.math, General Pell equation: x^2 - N*y^2 = D, 1998
- Sci.math, General Pell equation: x^2 - N*y^2 = D, 1998 (Edited and cached copy)
- N. J. A. Sloane et al., Binary Quadratic Forms and OEIS (Index to related sequences, programs, references)
Crossrefs
With respect to solutions of the equation in the early comment, see comments etc. in: A001835 (k = 2), A001075 (k = 3), A237250 (k = 11), A003500 (k = 12), A082841 (k = 18), A077238 (k = 39).
A141123 gives the primes.
For a list of sequences giving numbers and/or primes represented by binary quadratic forms, see the "Binary Quadratic Forms and OEIS" link.
Programs
-
Mathematica
r[n_] := Reduce[n == 3*y^2 - x^2 && x > 0 && y > 0, {x, y}, Integers]; Reap[For[n = 1, n <= 1000, n++, rn = r[n]; If[rn =!= False, Print["n = ", n, ", ", rn /. C[1] -> 1 // Simplify]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jan 21 2016 *) Select[Range[300],Length[FindInstance[3y^2-x^2==#,{x,y},Integers]]>0&] (* Harvey P. Dale, Apr 23 2023 *)
Extensions
Terms 26 and beyond from Colin Barker, Feb 06 2014
Comments