A047756 Duplicate of A047767.
0, 0, 1, 2, 2, 7, 12, 29, 55, 143, 271, 728, 1428, 3873, 7752, 21318, 43256, 120175
Offset: 0
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.
Table[Switch[Mod[n,8],1,4Binomial[(3n-3)/8,(n-1)/8]/(n+3)-If[17==Mod[n,24],24Binomial[(n-9)/8,(n-17)/24]/(n+7),0],5,4Binomial[(3n-7)/8,(n+3)/8]/(n-1)-If[5==Mod[n,24],12Binomial[(n-5)/8,(n-5)/12]/(n+7),0],,0]-Boole[1==n],{n,50}] (* _Robert A. Russell, Mar 22 2024 *)
Table[If[OddQ[n],0,If[OddQ[n/2],2Binomial[(3n-2)/4,(n-2)/4],Binomial[3n/4,n/4]]/(n/2+1)-Switch[Mod[n,12],2,6Binomial[(n-2)/4,(n-2)/12],8,12Binomial[(n-4)/4,(n-2)/6],,0]/(n+4)],{n,52}] (* _Robert A. Russell, Mar 22 2024 *)
Comments