A233758 Bisection of A006950 (the even part).
1, 1, 3, 5, 10, 16, 28, 43, 70, 105, 161, 236, 350, 501, 722, 1016, 1431, 1981, 2741, 3740, 5096, 6868, 9233, 12306, 16357, 21581, 28394, 37128, 48406, 62777, 81182, 104494, 134131, 171467, 218607, 277691, 351841, 444314, 559727, 703002, 880896, 1100775
Offset: 1
Keywords
Links
- M. P. Zaletel and R. S. K. Mong, Exact Matrix Product States for Quantum Hall Wave Functions, arXiv preprint arXiv:1208.4862 [cond-mat.str-el] (2012), 14 (C2a).
Programs
-
Mathematica
b[n_, i_] := b[n, i] = If[n == 0, 1, If[i < 1, 0, b[n, i - 1] + If[i > n, 0, b[n - i, i - Mod[i, 2]]]]]; a[n_] := b[2 n - 2, 2 n - 2]; Table[a[n], {n, 1, 42}] (* Jean-François Alcover, Dec 11 2018, after Alois P. Heinz in A006950 *)
Comments