OFFSET
1
LINKS
FORMULA
MATHEMATICA
Boole[Table[AnyTrue[{n, n/2}, PrimePowerQ]&&MemberQ[Mod[{n, n/2}, 4], 3], {n, 140}]] (* Harvey P. Dale, Jan 09 2023 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 15 2022
STATUS
approved