A347286 a(n) is n minus the number of odd divisors of n.
0, 1, 1, 3, 3, 4, 5, 7, 6, 8, 9, 10, 11, 12, 11, 15, 15, 15, 17, 18, 17, 20, 21, 22, 22, 24, 23, 26, 27, 26, 29, 31, 29, 32, 31, 33, 35, 36, 35, 38, 39, 38, 41, 42, 39, 44, 45, 46, 46, 47, 47, 50, 51, 50, 51, 54, 53, 56, 57, 56, 59, 60, 57, 63, 61, 62, 65, 66, 65, 66
Offset: 1
Examples
For n = 18 the divisors of 18 are 1, 2, 3, 6, 9, 18. There are three odd divisors: 1, 3, 9, so a(18) = 18 - 3 = 15. On the other hand the partitions of 18 into consecutive parts are [18], [7, 6, 5], [6, 5, 4, 3]. There are three of such partitions, so a(18) = 18 - 3 = 15. Illustration of initial terms: . n a(n) Diagram _ 1 0 _|x| 2 1 _|x _| 3 1 _|x |x| 4 3 _|x _| | 5 3 _|x |x _| 6 4 _|x _| |x| 7 5 _|x |x | | 8 7 _|x _| _| | 9 6 _|x |x |x _| 10 8 _|x _| | |x| 11 9 _|x |x _| | | 12 10 _|x _| |x | | 13 11 _|x |x | _| | 14 12 _|x _| _| |x _| 15 11 _|x |x |x | |x| 16 15 _|x _| | | | | 17 15 _|x |x _| _| | | 18 15 _|x _| |x |x | | 19 17 _|x |x | | _| | 20 18 _|x _| _| | |x _| 21 17 |x |x |x | | |x| ... In the above diagram the number of x's in row n equals A001227(n), the number of partitions n into consecutive parts. a(n) is the number of square cells in row n that do not contain a "x". In other words: a(n) is the number of square cells in row n that do not have a horizontal line segment above.
Crossrefs
Programs
-
Mathematica
a[n_] := n - DivisorSigma[0, n/2^IntegerExponent[n, 2]]; Array[a, 70] (* Amiram Eldar, Sep 12 2021 *)
-
PARI
a(n) = n - sumdiv(n, d, d%2); \\ Michel Marcus, Sep 12 2021
Formula
a(n) = n - A001227(n).
Comments