OFFSET
1,2
COMMENTS
Complement of A263029.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..39743
MATHEMATICA
Select[Range[1, 100], PrimeQ[CarmichaelLambda[#] + 1] &]
PROG
(Magma) [1] cat [n: n in [2..100] | IsPrime(CarmichaelLambda(n)+1)];
(PARI) for(n=1, 1e3, if(isprime((1 + lcm(znstar(n)[2]))), print1(n", "))) \\ Altug Alkan, Oct 12 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Oct 12 2015
EXTENSIONS
More terms from Antti Karttunen, Dec 05 2017
STATUS
approved