A356821 Lucas-Carmichael numbers k that have an abundancy index sigma(k)/k that is larger than the abundancy indices of all smaller Lucas-Carmichael numbers.
399, 6304359999, 408598269695, 517270926095, 20203946790335
Offset: 1
Programs
-
Mathematica
lc = Import["https://oeis.org/A006972/b006972.txt", "Table"][[;; , 2]]; rm = 0; s = {}; Do[n = lc[[k]]; r = DivisorSigma[-1, n]; If[r > rm, AppendTo[s, n]; rm = r], {k, 1, Length[lc]}]; s
Extensions
a(5) from Martin Ehrenstein, Jul 30 2023
Comments