A080976 a(n) = A080301(A080973(n)).
0, 3, 318, 49497, 1593176614, 306347668831, 13663408341818193, 657273036441106021420, 1725515775006035094342654787041, 397951747550111200113555298627327
Offset: 0
Keywords
Crossrefs
Cf. A080975.
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
map(CatalanRankGlobal,map(DonagheysM, A014486)); or map(CatalanRankGlobal,map(DeepRotateTriangularization, A014486)); DonagheysM := n -> pars2binexp(DonagheysMP(binexp2pars(n))); DonagheysMP := h -> `if`((0 = nops(h)),h,[op(DonagheysMP(car(h))),DonagheysMP(cdr(h))]); DeepRotateTriangularization := proc(nn) local n,s,z,w; n := binrev(nn); z := 0; w := 0; while(1 = (n mod 2)) do s := DeepRotateTriangularization(BinTreeRightBranch(n))*2; z := z + (2^w)*s; w := w + binwidth(s); z := z + (2^w); w := w + 1; n := floor(n/2); od; RETURN(z); end;
Map[2 # + 1 &, {0}~Join~Accumulate@ Map[Count[#, ?OddQ] &, Table[Binomial[n, k], {n, 0, 54}, {k, 0, n}]]] (* _Michael De Vlieger, Oct 30 2022 *)
Comments