OFFSET
1
LINKS
FORMULA
MATHEMATICA
a[n_] := If[OddQ[n] && Mod[DivisorSigma[1, n^2], 4] == 1, 1, 0]; Array[a, 100] (* Amiram Eldar, May 16 2022 *)
PROG
(PARI) A354036(n) = ((n%2)&&1==(sigma(n*n)%4));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 16 2022
STATUS
approved