OFFSET
1
LINKS
FORMULA
a(n) = 1 if A033880(n) > 0, 0 otherwise.
a(n) = 1 - A294935(n).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = A302991. - Amiram Eldar, Jul 25 2022
MATHEMATICA
a[n_] := If[DivisorSigma[1, n] > 2*n, 1, 0]; Array[a, 100] (* Amiram Eldar, Jul 25 2022 *)
PROG
(PARI) a(n) = sigma(n) > 2*n; \\ Michel Marcus, Jul 25 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 12 2017
STATUS
approved