A309268 Carmichael numbers m such that A309132(m) < m.
561, 1105, 46657, 52633, 188461, 670033, 825265, 838201, 1082809, 2455921, 2628073, 4463641, 4767841, 5632705, 8830801, 11119105, 13187665, 16778881, 18307381, 18900973, 21584305, 22665505, 31146661, 31405501, 31692805, 34657141, 36765901, 38624041, 40280065
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
aQ[n_] := CompositeQ[n] && Divisible[n - 1, CarmichaelLambda[n]] && Denominator[ Total@(1/FactorInteger[n][[;; , 1]]) - 1/n] < n; Select[Range[10^6], aQ]
Comments