A047759 Duplicate of A047772.
0, 0, 0, 1, 8, 42, 232, 1277, 7183, 41041, 238315, 1402076, 8343804, 50136483
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[If[1==Mod[n,4],(2Boole[1==n]+2Binomial[(3n-3)/4,(n-1)/4]/(n+1)-If[1==Mod[n,8],12Binomial[(3n-3)/8,(n-1)/8]/(n+3),12Binomial[(3n-7)/8,(n+3)/8]/(n-1)]-If[5==Mod[n,12],6Binomial[(n-5)/4,(n-5)/12]/(n+1)-If[5==Mod[n,24],36Binomial[(n-5)/8,(n-5)/12],72Binomial[(n-9)/8,(n-17)/24]]/(n+7),0])/6,0],{n,50}] (* Robert A. Russell, Mar 22 2024 *)
Table[(If[OddQ[n],0,Binomial[3n/2,n/2]/(n+1)-6If[OddQ[n/2],2Binomial[(3n-2)/4,(n-2)/4],Binomial[3n/4,n/4]]/(n+2)]-3If[2==Mod[n,6],Binomial[3(n-2)/6,(n-2)/6]/(n+1)-If[2==Mod[n,12],6Binomial[3(n-2)/12,(n-2)/12],12Binomial[n/4-1,(n-8)/12]]/(n+4),0])/6,{n,30}] (* Robert A. Russell, Mar 22 2024 *)
Table[If[n<5,0,If[OddQ[n],2Binomial[(3n-1)/2,(n-1)/2]/(n+1)+If[1==Mod[n,4],2Binomial[3(n-1)/4,(n-1)/4]/(n+1),0],Binomial[3n/2,n/2]/(n+1)-If[OddQ[n/2],4Binomial[(3n-2)/4,(n-2)/4],2Binomial[3n/4,n/4]]/(n+2)]/2+If[2==Mod[n,6],3Binomial[(n-2)/2,(n-2)/6]/(n+1)+If[2==Mod[n,12],6Binomial[(n-2)/4,(n-2)/12],12Binomial[n/4-1,(n-8)/12]]/(n+4),0]/2-Switch[Mod[n,4],1,4Binomial[(3n+1)/4,(n-1)/4],3,2Binomial[(3n+3)/4,(n+1)/4],,0]/(n+3)-Switch[Mod[n,6],1,3Binomial[(n-1)/2,(n-1)/6]/(n+2),2,6Binomial[n/2,(n-2)/6]/(n+4),4,6Binomial[(n-2)/2,(n-4)/6]/(n+2),,0]-If[5==Mod[n,6],3Binomial[(n+1)/2,(n+1)/6]/(n+4)-Switch[Mod[n,24],5,12Binomial[(n-5)/8,(n-5)/24],17,24Binomial[(n-9)/8,(n-17)/24],,0]/(n+7),0]],{n,50}] (* _Robert A. Russell, Mar 29 2024 *)
Comments