OFFSET
1
LINKS
MATHEMATICA
a[n_] := Boole[DivisorSigma[1, n] <= 2*n]; Array[a, 100] (* Amiram Eldar, Mar 14 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 12 2017
STATUS
approved