OFFSET
1
LINKS
MATHEMATICA
a[n_]:=Boole[!PrimeQ[n]&&Mod[n, 4]==3]; Array[a, 125](* Stefano Spezia, Jun 25 2024 *)
PROG
(PARI) A373979(n) = (!isprime(n) && 3==(n%4));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 25 2024
STATUS
approved