OFFSET
1
COMMENTS
For all n >= 1, a(n) = 1 => A295297(n) = 0.
LINKS
FORMULA
Multiplicative with a(2^e) = 1, and for odd primes p, a(p^e) = A209229(p-1) if e = 1, and 0 if e > 1. - Antti Karttunen, Jan 06 2023
PROG
(PARI)
(PARI)
A209229(n) = (n && !bitand(n, n-1));
A336477(n) = { my(f=factor(n)); prod(k=1, #f~, (2==f[k, 1] || A209229(f[k, 1]-1)*(1==f[k, 2]))); }; \\ Antti Karttunen, Jan 06 2023
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Jul 25 2020
EXTENSIONS
Keyword:mult added by Antti Karttunen, Jan 06 2023
STATUS
approved