A229949 Number of divisors of the n-th positive quarter-square.
1, 2, 3, 4, 3, 6, 5, 6, 3, 8, 9, 8, 3, 8, 7, 12, 5, 12, 9, 8, 3, 12, 15, 12, 3, 8, 9, 16, 9, 20, 9, 10, 3, 12, 15, 12, 3, 12, 15, 24, 9, 16, 9, 8, 3, 16, 21, 24, 5, 12, 9, 16, 7, 24, 15, 12, 3, 16, 27, 16, 3, 12, 11, 24, 9, 16, 9, 16, 9, 36, 25, 18, 3, 8
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
a[n_] := DivisorSigma[0, Floor[(n+1)^2/4]]; Array[a, 100] (* Amiram Eldar, Dec 03 2023 *)
-
PARI
a(n) = numdiv((n+1)^2\4); \\ Amiram Eldar, Dec 03 2023
Comments