A296077 a(n) = 1 if 1 + A002322(n) is prime, 0 otherwise, where A002322 is Carmichael lambda.

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1

Offset: 1

Author

Antti Karttunen, Dec 05 2017

Keywords

• nonn

Comments

Out of the first 65537 values, 39743 are 1's (indicating primes), and 25794 are 0's, indicating nonprimes.

Links

• Antti Karttunen, Table of n, a(n) for n = 1..65537
• Index entries for characteristic functions

Crossrefs

Characteristic function for A263028.

Cf. A002322, A010051, A263027, A263029 (positions of zeros), A296076, A296079.

Programs

Mathematica

Table[If[PrimeQ[CarmichaelLambda[n]+1],1,0],{n,120}] (* Harvey P. Dale, Sep 23 2020 *)

PARI

A296077(n) = isprime(1+lcm(znstar(n)[2]));

Formula

a(n) = A010051(A263027(n)) = A010051(1+A002322(n)).