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.
%I A134105 #17 Sep 08 2022 08:45:32
%S A134105 -6,-2,3,4,12,34,48,1362,93844
%N A134105 Complete list of solutions to y^2 = x^3 + 297; sequence gives x values.
%C A134105 For corresponding y values and examples see A134104.
%C A134105 The parameter -297 of the curve corresponds to A200218(1). a(9)=A200216(1). - _Artur Jasinski_, Nov 29 2011
%t A134105 sol[x_] := Solve[y > 0 && x^3 - y^2 == -297, y, Integers];
%t A134105 Reap[For[x = 1, x < 10^5, x++, sx = sol[x]; If[sx != {}, xy = {x, y} /. sx[[1]]; Print[xy]; Sow[xy]]; sx = sol[-x]; If[sx != {}, xy = {-x, y} /. sx[[1]]; Print[xy]; Sow[xy]]]][[2, 1]][[All, 1]] // Sort (* _Jean-François Alcover_, Feb 07 2020 *)
%o A134105 (Magma) Sort([ p[1] : p in IntegralPoints(EllipticCurve([0, 297])) ]); /* adapted from A029728 */
%o A134105 (SageMath) [i[0] for i in EllipticCurve([0, 297]).integral_points()] # _Seiichi Manyama_, Aug 26 2019
%Y A134105 Cf. A134104, A134103, A134107, A029728, A134042, A134074.
%K A134105 sign,fini,full
%O A134105 1,1
%A A134105 _Klaus Brockhaus_, Oct 08 2007