OFFSET
1,1
LINKS
Donovan Johnson and Charles R Greathouse IV, Table of n, a(n) for n = 1..5308 (terms < 2^64; indices 1..2008, representing terms < 10^18, are from Johnson)
Richard Pinch, Carmichael numbers < 10^18
EXAMPLE
MATHEMATICA
(*M is the set of the first G (G<=10000) Carmichael numbers, as found in https://oeis.org/A002997/b002997.txt*) i=0; SPCM={}; While[i<G-1, i++; m=M[[i]]; j=i; While[j<G, j++; n=M[[j]]; If[GCD[m, n]==1, c=m n; If[c<=M[[1]] M[[G]], Fc=FactorInteger[c]; k=Length[Fc]; j2=0; While[j2<k, j2++; p=First[Fc[[j2]]]; If[Mod[c-1, p-1]!=0, j2=k+1]]; If[j2!=k+1, SPCM=Append[SPCM, c]]]]]]; SPCM=Union[SPCM]
CROSSREFS
KEYWORD
nonn
AUTHOR
Emmanuel Vantieghem, Feb 14 2012
STATUS
approved