|
%I #11 Jun 08 2014 15:36:01
%S 0,5,6,11,20,24,26,29,44,45,51,54,59,69,74,80,86,96,99,101,104,116,
%T 125,131,134,141,149,150,155,170,176,179,180,186,195,204,216,221,230,
%U 234,236,245,251,261,269,275,276,294,296,299,314,320,326,330,339,341,344,374,384
%N Numbers of form 5 x^2 + 6 y^2.
%H Harvey P. Dale, <a href="/A020685/b020685.txt">Table of n, a(n) for n = 1..1000</a>
%H N. J. A. Sloane et al., <a href="https://oeis.org/wiki/Binary_Quadratic_Forms_and_OEIS">Binary Quadratic Forms and OEIS</a> (Index to related sequences, programs, references)
%t Module[{upto=400},Select[Union[Flatten[{5*First[#]^2+6*Last[#]^2, 6*First[#]^2+ 5*Last[#]^2}&/@Tuples[Range[0,Ceiling[Sqrt[ upto/5]]], 2]]],#<=upto&]] (* _Harvey P. Dale_, Sep 04 2013 *)
%K easy,nonn
%O 1,2
%A _David W. Wilson_
|
