OFFSET
1,1
COMMENTS
All terms of this sequence are odd primes. See A002997 for references.
LINKS
EXAMPLE
a(1)=3 since A002997(1)=3*11*17.
MATHEMATICA
CarmichaelQ[n_] := Not[PrimeQ[n]] && Divisible[n - 1, CarmichaelLambda[n]]; FactorInteger[#][[1, 1]]& /@ Select[Range[4, 10^7], CarmichaelQ] (* Jean-François Alcover, Sep 23 2011 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jul 01 2008
STATUS
approved