OFFSET
1,1
COMMENTS
Complement of A263028.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..25794
MATHEMATICA
Select[Range[1, 400], ! PrimeQ[CarmichaelLambda[#] + 1] &]
PROG
(Magma) [n: n in [2..400] | not IsPrime(CarmichaelLambda(n)+1)];
(PARI) for(n=1, 1e3, if(isprime((1 + lcm(znstar(n)[2]))) == 0, print1(n", "))) \\ Altug Alkan, Oct 12 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Oct 12 2015
STATUS
approved