OFFSET
1
COMMENTS
See comments in A354109 for a proof of the equivalence of the formulas.
LINKS
FORMULA
MATHEMATICA
a[n_] := If[! (OddQ[n] && PrimePowerQ[n]) && ! (OddQ[n/2] && PrimePowerQ[n/2]), 1, 0]; Array[a, 100] (* Amiram Eldar, May 20 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 18 2022
STATUS
approved