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.
Do[f=5^n+3^n;If[PrimeQ[f/2^3],Print[{n,f/2^3}]],{n,1,1231}] (* Alexander Adamchuk, Sep 14 2006 *)
a[0] = 1; a[n_] := a[n] = -(n!)^3 Sum[a[k]/(k! (n - k))^3, {k, 0, n - 1}]; Table[a[n], {n, 0, 14}]
nmax = 14; CoefficientList[Series[1/(1 + PolyLog[3, x]), {x, 0, nmax}], x] Range[0, nmax]!^3
a(n)={n!^3*polcoef(1/(1 + polylog(3,x + O(x*x^n))), n)} \\ Andrew Howroyd, Sep 15 2020
a[0] = 1; a[n_] := a[n] = -(n!)^4 Sum[a[k]/(k! (n - k))^4, {k, 0, n - 1}]; Table[a[n], {n, 0, 13}]
nmax = 13; CoefficientList[Series[1/(1 + PolyLog[4, x]), {x, 0, nmax}], x] Range[0, nmax]!^4
a(n)={n!^4*polcoef(1/(1 + polylog(4,x + O(x*x^n))), n)} \\ Andrew Howroyd, Sep 15 2020
a[0] = 1; a[n_] := a[n] = -(n!)^5 Sum[a[k]/(k! (n - k))^5, {k, 0, n - 1}]; Table[a[n], {n, 0, 12}]
nmax = 12; CoefficientList[Series[1/(1 + PolyLog[5, x]), {x, 0, nmax}], x] Range[0, nmax]!^5
a(n)={n!^5*polcoef(1/(1 + polylog(5,x + O(x*x^n))), n)} \\ Andrew Howroyd, Sep 15 2020
Comments