A106753 Discriminants, negated, of definite binary quadratic forms.

3, 7, 8, 11, 12, 15, 19, 20, 23, 24, 27, 28, 31, 32, 35, 39, 40, 43, 44, 47, 48, 51, 52, 55, 56, 59, 60, 63, 67, 68, 71, 72, 75, 76, 79, 80, 83, 84, 87, 88, 91, 92, 95, 96, 99, 103, 104, 107, 108, 111, 112, 115, 116, 119, 120, 123, 124, 127, 128, 131, 132, 135, 136, 139

Offset

1,1

Comments

A definite binary quadratic form a*x^2 + b*x*y + c*y^2 over the integers has discriminant D = b^2 - 4*a*c < 0; -D is assumed to be a nonsquare.

Links

Table of n, a(n) for n=1..64.

Formula

-a(n) is 0 (mod 4) or 1 (mod 4), but not a square.

Mathematica

Select[ Range[148], (Mod[ -#, 4] == 0 || Mod[ -#, 4] == 1) && !IntegerQ[Sqrt[ # ]] & ]

Crossrefs

Cf. A014601, A042948 (with squares), A079896 (indefinite case).

Sequence in context: A261415 A331547 A285164 * A174871 A062863 A194470

Adjacent sequences: A106750 A106751 A106752 * A106754 A106755 A106756

Keyword

easy,nonn

Author

Steven Finch, May 16 2005

Status

approved