OFFSET
1,1
COMMENTS
Out of the first 65537 values, 39743 are 1's (indicating primes), and 25794 are 0's, indicating nonprimes.
LINKS
MATHEMATICA
Table[If[PrimeQ[CarmichaelLambda[n]+1], 1, 0], {n, 120}] (* Harvey P. Dale, Sep 23 2020 *)
PROG
(PARI) A296077(n) = isprime(1+lcm(znstar(n)[2]));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 05 2017
STATUS
approved