OFFSET
10,1
COMMENTS
a(n) > 0 for large enough n, see Larsen link. Probably a(n) > 0 for all n >= 10.
LINKS
Amiram Eldar, Table of n, a(n) for n = 10..74
Daniel Larsen, Bertrand's Postulate for Carmichael Numbers, International Mathematics Research Notices, Vol. 2023, No. 15 (2023), pp. 13072-13098; arXiv preprint, arXiv:2111.06963 [math.NT], 2021-2023.
FORMULA
a(n) ~ 2^n due to Larsen.
MATHEMATICA
carmQ[k_] := CompositeQ[k] && Divisible[k-1, CarmichaelLambda[k]]; a[n_] := Module[{k = 2^(n-1)}, While[!carmQ[k], k++]; If[k > 2^n, 0, k]]; Array[a, 10, 10] (* Amiram Eldar, Feb 04 2026 *)
PROG
(PARI) a(n)=forsquarefree(t=2^(n-1), 2^n, my(f=t[2]); if(#f~>1 && f[1, 1]>2 && Korselt(t[1], f), return(t[1])))
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles R Greathouse IV, Sep 01 2024
STATUS
approved
