OFFSET
1
LINKS
MATHEMATICA
s[n_] := Module[{m = 1}, While[! Divisible[m*(m + 1), n], m++]; m]; a[n_] := Module[{sn = s[n]}, If[DivisorSum[n, If[s[#] < sn, 0, 1] &, # < n &] == 0, 1, 0]]; Array[a, 100] (* Amiram Eldar, Jun 17 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 17 2022
STATUS
approved