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.

A141337 Primes of the form -2*x^2+6*x*y+7*y^2 (as well as of the form 14*x^2+22*x*y+7*y^2).

This page as a plain text file.
%I A141337 #10 Oct 25 2016 14:53:54
%S A141337 7,11,19,23,43,67,79,83,103,107,191,199,227,251,263,283,359,367,379,
%T A141337 383,419,431,467,479,503,523,563,571,619,631,643,659,727,743,751,787,
%U A141337 827,839,907,911,919,971,983,1019,1031,1063,1091,1103,1123,1171,1187,1259
%N A141337 Primes of the form -2*x^2+6*x*y+7*y^2 (as well as of the form 14*x^2+22*x*y+7*y^2).
%C A141337 Discriminant = 92. Class = 2. Binary quadratic forms a*x^2+b*x*y+c*y^2 have discriminant d=b^2-4ac and gcd(a,b,c)=1.
%D A141337 Z. I. Borevich and I. R. Shafarevich, Number Theory. Academic Press, NY, 1966.
%D A141337 D. B. Zagier, Zetafunktionen und quadratische Körper, Springer, 1981.
%e A141337 a(5)=43 because we can write 43=-2*10^2+6*10*3+7*3^2 (or 14*1^2+22*1*1+7*1^2).
%t A141337 Reap[For[p = 2, p < 2000, p = NextPrime[p], If[FindInstance[p == -2*x^2 + 6*x*y + 7*y^2, {x, y}, Integers, 1] =!= {}, Print[p]; Sow[p]]]][[2, 1]] (* _Jean-François Alcover_, Oct 25 2016 *)
%Y A141337 Cf. A141336 (d=92).
%K A141337 nonn
%O A141337 1,1
%A A141337 Laura Caballero Fernandez, Lourdes Calvo Moguer, Maria Josefa Cano Marquez, Oscar Jesus Falcon Ganfornina and Sergio Garrido Morales (oscfalgan(AT)yahoo.es), Jun 25 2008
%E A141337 More terms from _Colin Barker_, Apr 05 2015