A153580 Terms of A083737 which are not Carmichael numbers (A002997).
721801, 873181, 4504501, 8646121, 9006401, 9863461, 10403641, 12322133, 14609401, 15913261, 18595801, 18736381, 20234341, 21397381, 22066201, 22369621, 22885129, 25326001, 25696133, 28312921, 36307981, 42702661
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..2871 (calculated from the b-file at A083737)
Programs
-
Mathematica
Select[Range[5*10^7], ! PrimeQ[ # ] && PowerMod[2, # - 1, # ] == 1 && PowerMod[3, # - 1, # ] == 1 && PowerMod[5, # - 1, # ] == 1 && Mod[ #, CarmichaelLambda[ # ]] != 1 &] (* Ray Chandler, Dec 28 2008 *)