OFFSET
1
LINKS
FORMULA
MATHEMATICA
a[n_] := If[MemberQ[{2, 4}, DivisorSigma[0, n]], 1, 0]; Array[a, 120] (* Amiram Eldar, May 13 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 13 2022
STATUS
approved