OFFSET
1,3
MATHEMATICA
ok[n_] := AllTrue[{0, 4}, SquaresR[2, # + n] > 0 &]; Select[Range[0, 400], ok] (* Giovanni Resta, Oct 08 2019 *)
PROG
(Magma) [k: k in [0..400] | NormEquation(1, k) eq true and NormEquation(1, k+4) eq true]; // Marius A. Burtea, Oct 08 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Oct 08 2019
STATUS
approved