A354036 - OEIS

A354036

a(n) = 1 if n is odd and sigma(n^2) == 1 (mod 4), otherwise 0.

1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

(list; graph; refs; listen; history; text; internal format)

OFFSET

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for characteristic functions

Index entries for sequences related to sigma(n)

FORMULA

a(n) = A000035(n) * [A010873(A065764(n)) == 1], where [ ] is the Iverson bracket.

a(n) = A000035(n) - A354035(n).

MATHEMATICA

a[n_] := If[OddQ[n] && Mod[DivisorSigma[1, n^2], 4] == 1, 1, 0]; Array[a, 100] (* Amiram Eldar, May 16 2022 *)

PROG