OFFSET
1,1
COMMENTS
Out of the first 65537 values, 26197 are 1's (indicating primes), and 39340 are 0's, indicating nonprimes.
LINKS
FORMULA
MATHEMATICA
Table[If[PrimeQ[EulerPhi[n]+1], 1, 0], {n, 120}] (* Harvey P. Dale, Apr 23 2020 *)
PROG
(PARI) A296079(n) = isprime(1+eulerphi(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 05 2017
STATUS
approved