OFFSET
1
LINKS
FORMULA
MATHEMATICA
a[n_] := If[IntegerQ@Log2[DivisorSigma[0, n]], 1, 0]; Array[a, 100] (* Amiram Eldar, Jan 05 2023 *)
PROG
(PARI)
A209229(n) = (n && !bitand(n, n-1));
(Python)
from sympy import factorint
def A359473(n): return int(all(map(lambda m:not((k:=m+1)&-k)^k, factorint(n).values()))) # Chai Wah Wu, Jan 04 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 04 2023
STATUS
approved