OFFSET
1,2
EXAMPLE
MATHEMATICA
f[n_] := FindInstance[n == x^2 + 13 y^2 && x > 0 && y > 0, {x, y}, Integers][[1, 1, 2]]; f@# & /@ Select[ Prime@ Range@ 1840, Mod[#, 52] == 1 &] (* Robert G. Wilson v, Oct 06 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 06 2014
STATUS
approved