A235188 Integers n of the form square root ((4k + 3j) (4j + 3k)), 0 < j < k.

392, 504, 630, 770, 784, 924, 1008, 1092, 1176, 1260, 1274, 1365, 1470, 1512, 1540, 1568, 1680, 1785, 1848, 1890, 1904, 1960, 2016, 2142, 2184, 2261, 2310, 2352, 2394, 2520, 2548, 2660, 2730, 2744, 2772, 2793, 2940, 3024, 3080, 3136, 3150, 3220, 3234, 3276, 3360

Offset: 1

Author

Robert G. Wilson v, Jan 04 2014

Keywords

• nonn
• easy

Comments

Allowing j = 0 or j = k has the effect of introducing all multiples of 7. - Charles R Greathouse IV, Jan 09 2014

Crossrefs

Cf. A083752.

Programs

Mathematica

lst = {}; Do[a = Sqrt[(4k + 3j) (4j + 3k)]; If[ IntegerQ[ a], AppendTo[lst, a]], {j, 2, 1000}, {k, j - 1}]; Take[Union@ lst, 45]