A355309 Carmichael numbers ending in 3.
52633, 63973, 334153, 670033, 997633, 2508013, 2628073, 5968873, 6733693, 13696033, 15829633, 15888313, 18900973, 26280073, 27336673, 46483633, 53711113, 65241793, 67653433, 75765313, 124630273, 133344793, 158864833, 182356993, 227752993, 242641153, 292244833, 426821473, 577240273, 580565233, 600892993
Offset: 1
Links
Programs
-
Mathematica
Select[10*Range[0, 10^7] + 3, CompositeQ[#] && Divisible[# - 1, CarmichaelLambda[#]] &] (* Amiram Eldar, Jul 25 2022 *)
-
Python
from itertools import count, islice from sympy import factorint def A355309_gen(): # generator of terms for n in count(3,10): f = factorint(n) if len(f) == sum(f.values()) > 1 and not any((n-1) % (p-1) for p in f): yield n A355309_list = list(islice(A355309_gen(),5)) # Chai Wah Wu, Jul 26 2022