OFFSET
1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..100000
FORMULA
MATHEMATICA
a[n_] := If[EvenQ[PrimeOmega[n]] && SquareFreeQ[n/2^IntegerExponent[n, 2]], 1, 0]; Array[a, 100] (* Amiram Eldar, Jan 18 2023 *)
PROG
(PARI) A359156(n) = ((0==(bigomega(n)%2))&&issquarefree(n>>valuation(n, 2)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 20 2022
STATUS
approved