login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A336791 Incrementally largest values of minimal x satisfying the equation x^2 - D*y^2 = -2, where D is an odd prime number. 2
1, 3, 13, 59, 221, 8807, 527593, 52778687, 113759383, 13458244873, 313074529583, 1434867510253, 30909266676193, 842239594152347, 1075672117707143, 29204057639975683, 52376951398984393, 4785745078256208692917, 15280437983663153103594943 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
COMMENTS
Analogous to A033315 for x^2-D*y^2=1, and D required to be prime.
LINKS
Christine Patterson, Cocalc (Sage) program
EXAMPLE
For D=43, the least x for which x^2-D*y^2=-2 has a solution is 59. The next prime, D, for which x^2-D*y^2=-2 has a solution is 59, but the smallest x in this case is 23, which is less than 59. The next prime, D, after 59 for which x^2-D*y^2=-2 has a solution is 67 and the least x for which it has a solution is 221, which is larger than 59, so it is a new record value. 67 is a term of A336790 and 221 is a term of this sequence, but 59 is not a term of A336790 because the least x for which x^2-47*y^2=-2 has a solution at D=59 is not a record value.
MATHEMATICA
records[n_]:=Module[{ri=n, m=0, rcs={}, len}, len=Length[ri]; While[ len>0, If[ First[ri]>m, m=First[ri]; AppendTo[rcs, m]]; ri=Rest[ri]; len--]; rcs]; records[ Abs[Flatten[Table[x/.FindInstance[x^2-p y^2==-2, {x, y}, Integers], {p, Prime[Range[2, 500]]}]/.x->Nothing]]] (* Harvey P. Dale, Jan 02 2022 *)
CROSSREFS
Sequence in context: A151228 A366676 A339881 * A268596 A199297 A152594
KEYWORD
nonn
AUTHOR
Christine Patterson, Oct 14 2020
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 10:55 EDT 2024. Contains 371241 sequences. (Running on oeis4.)