carmichael(561) # TRUE
if (FALSE) {
for (n in 1:100000)
if (carmichael(n)) cat(n, '\n')
## 561 2821 15841 52633
## 1105 6601 29341 62745
## 1729 8911 41041 63973
## 2465 10585 46657 75361
}
Run the code above in your browser using DataLab