OFFSET
1,1
COMMENTS
These Carmichael numbers seem to be relatively rare: among the 4279356 Carmichael numbers below 2^64 only 3097 are terms of this sequence.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (calculated using data from Claude Goutier)
MATHEMATICA
Select[2*Range[3*10^6] + 1, Mod[#, CarmichaelLambda[#]] == 1 && CompositeQ[#] && OddQ[MultiplicativeOrder[2, #]] &]
PROG
(PARI) is(n) = n > 1 && n % 2 && !isprime(n) && n % lcm(znstar(n)[2]) == 1 && znorder(Mod(2, n)) % 2;
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 11 2023
STATUS
approved