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.
rV := proc(n,a,d)
n*(n+1)/2*a+(n-1)*n*(n+1)/6*d;
end proc:
A259459 := proc(n)
mul(rV(i,a,d),i=1..n+1) ;
coeftayl(%,d=0,1) ;
coeftayl(%,a=0,n) ;
end proc:
seq(A259459(n),n=1..15) ; # R. J. Mathar, Jul 14 2015
rV[n_, a_, d_] := n(n+1)/2*a + (n-1)n(n+1)/6*d; A259459[n_] := Product[rV[i, a, d], {i, 1, n+2}] // SeriesCoefficient[#, {d, 0, 1}]& // SeriesCoefficient[#, {a, 0, n+1}]&; Table[A259459[n], {n, 0, 14}] (* Jean-François Alcover, Apr 27 2023, after R. J. Mathar *)
rV := proc(n,a,d)
n*(n+1)/2*a+(n-1)*n*(n+1)/6*d;
end proc:
A259460 := proc(n)
mul(rV(i,a,d),i=1..n+2) ;
coeftayl(%,d=0,2) ;
coeftayl(%,a=0,n) ;
end proc:
seq(A259460(n),n=1..18) ; # R. J. Mathar, Jul 14 2015
rV[n_, a_, d_] := n (n + 1)/2*a + (n - 1) n (n + 1)/6*d; A259460[n_] := Product[rV[i, a, d], {i, 1, n + 3}] // SeriesCoefficient[#, {d, 0, 2}] & // SeriesCoefficient[#, {a, 0, n + 1}] & ; Table[A259460[n], {n, 0, 16}] (* Jean-François Alcover, Apr 27 2023, after R. J. Mathar *)
Comments