OFFSET
3,1
EXAMPLE
a(4)=1105 because 1105 is the smallest 4-digit Carmichael number. [corrected by Jon E. Schoenfield, Jan 28 2014]
MATHEMATICA
CarmichaelNbrQ[n_] := ! PrimeQ@ n && Mod[n, CarmichaelLambda@ n] == 1; f[n_] := Block[{k = 10^(n - 1) + 1}, While[! CarmichaelNbrQ@ k, k += 2]; k]; Do[ Print[{n, f[n] // Timing}], {n, 3, 18}]
CROSSREFS
KEYWORD
hard,more,nonn,base
AUTHOR
Shyam Sunder Gupta, Feb 17 2002
EXTENSIONS
a(17)-a(20) from Amiram Eldar, Jun 29 2019
STATUS
approved