A323383 Proper divisors of 24.
1, 2, 3, 4, 6, 8, 12
Offset: 1
Examples
tau(1) = 1 >= 0.5 tau(2) = 2 >= 1 tau(3) = 2 >= 1.5 tau(4) = 3 >= 2 so 1, 2, 3, 4 are in the sequence. tau(5) = 2 < 2.5 so 5 is not in the sequence.
Programs
-
Mathematica
Select[Range[10^3], 2 DivisorSigma[0, #] >= # &] (* Michael De Vlieger, Jan 20 2019 *)
-
PARI
for (n = 1, 100, if (sigma(n, 0) >= n / 2, print1(n, ", ")));
Extensions
Renamed by Andrey Zabolotskiy, Apr 15 2025
Comments