OFFSET
1
COMMENTS
LINKS
FORMULA
MATHEMATICA
a[n_] := If[2^(1 + PrimeNu[n]) > DivisorSigma[0, n], 1, 0]; Array[a, 100] (* Amiram Eldar, Jan 05 2023 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 04 2023
STATUS
approved