|
|
A097633
|
|
Numbers not of form x^2 + y^2 + 7z^2.
|
|
2
|
|
|
3, 6, 14, 19, 21, 22, 31, 35, 42, 51, 55, 66, 70, 84, 91, 94, 119, 133, 139, 140, 142, 147, 154, 159, 166, 168, 182, 189, 214, 217, 231, 235, 238, 266, 280, 283, 287, 294, 315, 322, 329, 336, 364, 378, 385, 406, 413, 427, 434, 439, 462, 476, 483, 511, 525
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
r[n_] := Reduce[n == x^2 + y^2 + 7z^2, {x, y, z}, Integers]; Reap[For[n = 0, n <= 600, n++, If[r[n] == False, Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Feb 08 2016 *)
Take[Module[{c=With[{nn=30}, Union[Flatten[Table[x^2+y^2+7z^2, {x, 0, nn}, {y, 0, nn}, {z, 0, nn}]]]]}, Complement[Range[Max[c]], c]], 60] (* Harvey P. Dale, Dec 16 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|