A302570 Unitary barely abundant numbers: unitary abundant numbers k such that usigma(k)/k < usigma(m)/m for all unitary abundant numbers m < k, where usigma(k) is the sum of the unitary divisors of k (A034448).

30, 42, 66, 70, 222, 246, 258, 282, 294, 318, 354, 366, 402, 426, 438, 474, 498, 534, 582, 606, 618, 642, 654, 678, 726, 750, 762, 786, 822, 834, 894, 906, 942, 978, 1002, 1014, 1038, 1074, 1086, 1146, 1158, 1182, 1194, 1266, 1338, 1362, 1374, 1398, 1434

Offset

1,1

Comments

The unitary version of A071927.

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Example

The values of usigma(k)/k are 2.4, 2.285..., 2.181..., 2.057..., 2.054...

Mathematica

usigma[n_] := If[n == 1, 1, Times @@ (1 + Power @@@ FactorInteger[n])]; seq = {}; r = 3; Do[s = usigma[n]/n; If[s > 2 && s < r, AppendTo[seq, n]; r = s], {n, 1, 10000}]; seq

Crossrefs

Cf. A034448, A034683, A071927, A302572.

Sequence in context: A249242 A189759 A046401 * A300156 A306330 A160352

Adjacent sequences: A302567 A302568 A302569 * A302571 A302572 A302573

Keyword

nonn

Author

Amiram Eldar, Apr 10 2018

Status

approved