OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..2871 (calculated from the b-file at A083737)
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler & Artur Jasinski, Dec 28 2008
STATUS
approved