OFFSET
1,2
COMMENTS
Based on A062775, but that sequence counts (x,y,z) and (y,x,z) as different pairs.
EXAMPLE
MATHEMATICA
a[n_] := Block[{q = Association[(#[[1]] -> #[[2]]) & /@ Tally[ Mod[ Range[ n]^2, n]]]}, Sum[ Lookup[q, Mod[x^2 + y^2, n], 0], {x, n}, {y, x}]]; Array[a, 53] (* Giovanni Resta, Feb 04 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Yinxi Pan, Feb 03 2020
EXTENSIONS
More terms from Giovanni Resta, Feb 04 2020
STATUS
approved