OFFSET
1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..100000
FORMULA
Sum_{k=1..n} a(k) ~ n/2. - Amiram Eldar, May 27 2024
Multiplicative with a(p^e) = [e == 0 (mod 2)] if p <= 3 and a(p^e) = 1 if p > 3, where [ ] is the Iverson bracket.
MATHEMATICA
a[n_] := If[And @@ EvenQ[IntegerExponent[n, {2, 3}]], 1, 0]; Array[a, 100] (* Amiram Eldar, May 27 2024 *)
PROG
(PARI) A372574(n) = (1==gcd(core(n), 6));
(PARI) A372574(n) = { my(f = factor(n)); prod(k=1, #f~, if(f[k, 1]<=3, !(f[k, 2]%2), 1)); }; \\ Antti Karttunen, May 29 2024
CROSSREFS
KEYWORD
nonn,mult,easy
AUTHOR
Antti Karttunen, May 26 2024
STATUS
approved