The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A268128 a(n) = (A000123(n) - A001316)/2. 3
 0, 0, 1, 1, 4, 5, 8, 9, 17, 21, 28, 33, 45, 53, 66, 75, 100, 117, 140, 161, 193, 221, 258, 291, 344, 389, 446, 499, 573, 639, 722, 797, 913, 1013, 1132, 1249, 1393, 1533, 1698, 1859, 2060, 2253, 2478, 2699, 2965, 3223, 3522, 3813, 4173, 4517, 4910, 5299, 5753 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,5 LINKS G. E. Andrews, A. S. Fraenkel, and J. A. Sellers, Characterizing the number of m-ary partitions modulo m, The American Mathematical Monthly, Vol. 122, No. 9 (November 2015), pp. 880-885. G. E. Andrews, A. S. Fraenkel, and J. A. Sellers, Characterizing the number of m-ary partitions modulo m. Tom Edgar, The distribution of the number of parts of m-ary partitions modulo m., arXiv:1603.00085 [math.CO], 2016. FORMULA Let b(0) = 1 and b(n) = b(n-1) + b(floor(n/2)) and let c(n) = Product_{i=0..k}(n_i+1) where n = Sum_{i=0..k}n_i*2^i is the binary representation of n. Then a(n) = (1/2)*(b(n) - c(n)). MATHEMATICA b[0] = 1; b[n_] := b[n] = b[Floor[n/2]] + b[n - 1]; c[n_] := Sum[Mod[Binomial[n, k], 2], {k, 0, n}]; a[n_] := (b[n] - c[n])/2; Table[a[n], {n, 0, 52}] (* Jean-François Alcover, Dec 12 2018 *) PROG (Sage) def b(n):     A=[1]     for i in [1..n]:         A.append(A[i-1] + A[floor(i/2)])     return A[n] [(b(n)-prod(x+1 for x in n.digits(2)))/2 for n in [0..60]] CROSSREFS Cf. A005704, A006047, A268127. Sequence in context: A094004 A228012 A067271 * A064394 A346457 A141220 Adjacent sequences:  A268125 A268126 A268127 * A268129 A268130 A268131 KEYWORD nonn AUTHOR Tom Edgar, Jan 26 2016 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 25 03:32 EDT 2021. Contains 346282 sequences. (Running on oeis4.)