cp's OEIS Frontend

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.

Previous Showing 11-13 of 13 results.

A320783 Inverse Euler transform of (-1)^(n - 1).

Original entry on oeis.org

1, 1, -2, 2, -3, 6, -11, 18, -30, 56, -105, 186, -335, 630, -1179, 2182, -4080, 7710, -14588, 27594, -52377, 99858, -190743, 364722, -698870, 1342176, -2581425, 4971008, -9586395, 18512790, -35792449, 69273666, -134215680, 260300986, -505294125, 981706806
Offset: 0

Views

Author

Gus Wiseman, Oct 22 2018

Keywords

Comments

After a(1) and a(2), same as A038063.
The Euler transform of a sequence q is the sequence of coefficients of x^n, n > 0, in the expansion of Product_{n > 0} 1/(1 - x^n)^q(n). The constant term 1 is sometimes taken to be the zeroth part of the Euler transform.

Links

Crossrefs

Number theoretical functions: A000005, A000010, A000203, A001055, A001221, A001222, A008683, A010054.
Euler transforms: A000081, A001970, A006171, A007294, A061255, A061256, A061257, A073576, A117209, A293548, A293549.
Inverse Euler transforms: A059966, A320767, A320776, A320777, A320778, A320779, A320780, A320781, A320782.

Programs

  • Mathematica
    EulerInvTransform[{}]={};EulerInvTransform[seq_]:=Module[{final={}},For[i=1,i<=Length[seq],i++,AppendTo[final,i*seq[[i]]-Sum[final[[d]]*seq[[i-d]],{d,i-1}]]];
Table[Sum[MoebiusMu[i/d]*final[[d]],{d,Divisors[i]}]/i,{i,Length[seq]}]];
EulerInvTransform[Array[(-1)^(#-1)&,30]]

A320785 Inverse Euler transform of the number of factorizations function A001055.

Original entry on oeis.org

1, 1, 0, 0, 1, -1, 1, -1, 1, 0, -1, 1, -1, 0, 0, 1, 1, -3, 3, -3, 0, 4, -6, 6, -5, 5, -1, -7, 13, -16, 15, -8, -3, 12, -25, 41, -40, 21, 10, -51, 83, -93, 81, -38, -44, 148, -234, 258, -190, 35, 184, -429, 616, -660, 480, -18, -640, 1289, -1714, 1693, -1039, -268
Offset: 0

Views

Author

Gus Wiseman, Oct 22 2018

Keywords

Comments

The Euler transform of a sequence q is the sequence of coefficients of x^n, n > 0, in the expansion of Product_{n > 0} 1/(1 - x^n)^q(n). The constant term 1 is sometimes taken to be the zeroth part of the Euler transform.

Links

Crossrefs

Number theoretical functions: A000005, A000010, A000203, A001055, A001221, A001222, A008683, A010054.
Euler transforms: A000081, A001970, A006171, A007294, A061255, A061256, A061257, A073576, A117209, A293548, A293549.
Inverse Euler transforms: A059966, A320767, A320776, A320777, A320778, A320779, A320780, A320781, A320782.

Programs

  • Mathematica
    EulerInvTransform[{}]={};EulerInvTransform[seq_]:=Module[{final={}},For[i=1,i<=Length[seq],i++,AppendTo[final,i*seq[[i]]-Sum[final[[d]]*seq[[i-d]],{d,i-1}]]];
Table[Sum[MoebiusMu[i/d]*final[[d]],{d,Divisors[i]}]/i,{i,Length[seq]}]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
EulerInvTransform[Table[Length[facs[n]],{n,100}]]

A320786 Inverse Euler transform of {1,0,1,0,0,0,...}.

Original entry on oeis.org

1, 1, -1, 1, -1, 1, -2, 2, -2, 3, -5, 6, -7, 11, -16, 20, -27, 39, -55, 75, -102, 145, -207, 286, -397, 565, -802, 1123, -1581, 2248, -3193, 4517, -6399, 9112, -12984, 18457, -26270, 37502, -53553, 76416, -109146, 156135, -223446, 319764, -457884, 656288, -941081
Offset: 0

Views

Author

Gus Wiseman, Oct 22 2018

Keywords

Comments

The Euler transform of a sequence q is the sequence of coefficients of x^n, n > 0, in the expansion of Product_{n > 0} 1/(1 - x^n)^q(n). The constant term 1 is sometimes taken to be the zeroth part of the Euler transform.

Links

Crossrefs

Number theoretical functions: A000005, A000010, A000203, A001055, A001221, A001222, A008683, A010054.
Euler transforms: A000081, A001970, A006171, A007294, A061255, A061256, A061257, A073576, A117209, A293548, A293549.
Inverse Euler transforms: A059966, A320767, A320776, A320777, A320778, A320779, A320780, A320781, A320782.

Programs

  • Mathematica
    EulerInvTransform[{}]={};EulerInvTransform[seq_]:=Module[{final={}},For[i=1,i<=Length[seq],i++,AppendTo[final,i*seq[[i]]-Sum[final[[d]]*seq[[i-d]],{d,i-1}]]];
Table[Sum[MoebiusMu[i/d]*final[[d]],{d,Divisors[i]}]/i,{i,Length[seq]}]];
EulerInvTransform[PadRight[{1,0,1},50]]
Previous Showing 11-13 of 13 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.