OFFSET
1,1
PROG
(PARI) b(n)={my(k=0); while(isprime(n), k++; n=primepi(n)); k}; \\ A078442
a(n) = if ((n==1) || !isprime(n), return(0)); if (b(n)%2, 1, -1); \\ Michel Marcus, Jun 11 2024
CROSSREFS
KEYWORD
sign
AUTHOR
Michael P. May, Jun 06 2024
EXTENSIONS
More terms from Michel Marcus, Jun 11 2024
STATUS
approved