OFFSET
1
LINKS
FORMULA
MATHEMATICA
a[1] = 1; a[n_] := If[AllTrue[FactorInteger[n], First[#] == 2 || (Mod[First[#], 4] == 3 && EvenQ[Last[#]]) &], 1, 0]; Array[a, 100] (* Amiram Eldar, May 25 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 25 2022
STATUS
approved