A117209 -id:A117209 - cp's OEIS frontend

A023900 Dirichlet inverse of Euler totient function (A000010).

1, -1, -2, -1, -4, 2, -6, -1, -2, 4, -10, 2, -12, 6, 8, -1, -16, 2, -18, 4, 12, 10, -22, 2, -4, 12, -2, 6, -28, -8, -30, -1, 20, 16, 24, 2, -36, 18, 24, 4, -40, -12, -42, 10, 8, 22, -46, 2, -6, 4, 32, 12, -52, 2, 40, 6, 36, 28, -58, -8, -60, 30, 12, -1, 48, -20, -66, 16, 44, -24, -70, 2, -72, 36, 8, 18, 60, -24, -78, 4, -2

Offset: 1

Olivier Gérard

Also called reciprocity balance of n.
Apart from different signs, same as Sum_{d divides n} core(d)*mu(n/d), where core(d) (A007913) is the squarefree part of d. - Benoit Cloitre, Apr 06 2002
Main diagonal of A191898. - Mats Granvik, Jun 19 2011

			x - x^2 - 2*x^3 - x^4 - 4*x^5 + 2*x^6 - 6*x^7 - x^8 - 2*x^9 + 4*x^10 - ...

T. M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1976, page 37.
D. M. Burton, Elementary Number Theory, Allyn and Bacon Inc. Boston, MA, 1976, p. 125.

Antti Karttunen, Table of n, a(n) for n = 1..20000 (first 1000 terms from T. D. Noe)
G. P. Brown, Some comments on inverse arithmetic functions, Math. Gaz. 89 (516) (2005) 403-408.
K. Dohmen and M. Trinks, An Abstraction of Whitney's Broken Circuit Theorem, arXiv preprint arXiv:1404.5480 [math.CO], 2014.
R. Kemp, On the number of words in the language {w in Sigma* | w = w^R }^2, Discrete Math., 40 (1982), 225-234.
Paul W. Oxby, A Function Based on Chebyshev Polynomials as an Alternative to the Sinc Function in FIR Filter Design, arXiv:2011.10546 [eess.SP], 2020.
László Tóth, Multiplicative arithmetic functions of several variables: a survey, arXiv preprint arXiv:1310.7053 [math.NT], 2013.

Cf. A000010, A007913, A023898, A117209, A134842.
Moebius transform is A055615.
Cf. A027748, A173557 (gives the absolute values), A295876.
Cf. A253905 (Dgf at s=3).

a023900 1 = 1
a023900 n = product $ map (1 -) $ a027748_row n
-- Reinhard Zumkeller, Jun 01 2015

A023900 := n -> mul(1-i,i=numtheory[factorset](n)); # Peter Luschny, Oct 26 2010

a[ n_] := If[ n < 1, 0, Sum[ d MoebiusMu @ d, { d, Divisors[n]}]] (* Michael Somos, Jul 18 2011 *)
Array[ Function[ n, 1/Plus @@ Map[ #*MoebiusMu[ # ]/EulerPhi[ # ]&, Divisors[ n ] ] ], 90 ]
nmax = 81; Drop[ CoefficientList[ Series[ Sum[ MoebiusMu[k] k x^k/(1 - x^k), {k, 1, nmax} ], {x, 0, nmax} ], x ], 1 ] (* Stuart Clary, Apr 15 2006 *)
t[n_, 1] = 1; t[1, k_] = 1; t[n_, k_] :=  t[n, k] = If[n < k, If[n > 1 && k > 1, Sum[-t[k - i, n], {i, 1, n - 1}], 0], If[n > 1 && k > 1, Sum[-t[n - i, k], {i, 1, k - 1}], 0]]; Table[t[n, n], {n, 36}] (* Mats Granvik, Robert G. Wilson v, Jun 25 2011 *)
Table[DivisorSum[m, # MoebiusMu[#] &], {m, 90}] (* Jan Mangaldan, Mar 15 2013 *)
f[p_, e_] := (1 - p); a[1] = 1; a[n_] := Times @@ (f @@@ FactorInteger[n]); Array[a, 100] (* Amiram Eldar, Oct 14 2020 *)

{a(n) = direuler( p=2, n, (1 - p*X) / (1 - X))[n]}

{a(n) = if( n<1, 0, sumdiv( n, d, d * moebius(d)))} /* Michael Somos, Jul 18 2011 */

a(n)=sumdivmult(n,d, d*moebius(d)) \\ Charles R Greathouse IV, Sep 09 2014

from sympy import divisors, mobius
def a(n): return sum([d*mobius(d) for d in divisors(n)]) # Indranil Ghosh, Apr 29 2017

from math import prod
from sympy import primefactors
def A023900(n): return prod(1-p for p in primefactors(n)) # Chai Wah Wu, Sep 08 2023

;; With memoization-macro definec.
(definec (A023900 n) (if (= 1 n) 1 (* (- 1 (A020639 n)) (A023900 (A028234 n))))) ;; Antti Karttunen, Nov 28 2017

a(n) = Sum_{ d divides n } d*mu(d) = Product_{p|n} (1-p).
a(n) = 1 / (Sum_{ d divides n } mu(d)*d/phi(d)).
Dirichlet g.f.: zeta(s)/zeta(s-1). - Michael Somos, Jun 04 2000
a(n+1) = det(n+1)/det(n) where det(n) is the determinant of the n X n matrix M_(i, j) = i/gcd(i, j) = lcm(i, j)/j. - Benoit Cloitre, Aug 19 2003
a(n) = phi(n)*moebius(A007947(n))*A007947(n)/n. Logarithmic g.f.: Sum_{n >= 1} a(n)*x^n/n = log(F(x)) where F(x) is the g.f. of A117209 and satisfies: 1/(1-x) = Product_{n >= 1} F(x^n). - Paul D. Hanna, Mar 03 2006
G.f.: A(x) = Sum_{k >= 1} mu(k) k x^k/(1 - x^k) where mu(k) is the Moebius (Mobius) function, A008683. - Stuart Clary, Apr 15 2006
G.f.: A(x) is x times the logarithmic derivative of A117209(x). - Stuart Clary, Apr 15 2006
Row sums of triangle A134842. - Gary W. Adamson, Nov 12 2007
G.f.: x/(1-x) = Sum_{n >= 1} a(n)*x^n/(1-x^n)^2. - Paul D. Hanna, Aug 16 2008
a(n) = phi(rad(n)) *(-1)^omega(n) = A000010(A007947(n)) *(-1)^A001221(n). - Enrique Pérez Herrero, Aug 24 2010
a(n) = Product_{i = 2..n} (1-i)^( (pi(i)-pi(i-1)) * floor( (cos(n*Pi/i))^2 ) ), where pi = A000720, Pi = A000796. - Wesley Ivan Hurt, May 24 2013
a(n) = -limit of zeta(s)*(Sum_{d divides n} moebius(d)/exp(d)^(s-1)) as s->1 for n>1. - Mats Granvik, Jul 31 2013
a(n) = Sum_{d divides n} mu(d)*rad(d), where rad is A007947. - Enrique Pérez Herrero, May 29 2014
Conjecture for n>1: Let n = 2^(A007814(n))*m = 2^(ruler(n))*odd_part(n), where m = A000265(n), then a(n) = (-1)^(m=n)*(0+Sum_{i=1..m and gcd(i,m)=1} (4*min(i,m-i)-m)) = (-1)^(m1} (4*min(i,m-i)-m)). - I. V. Serov, May 02 2017
a(n) = (-1)^A001221(n) * A173557(n). - R. J. Mathar, Nov 02 2017
a(1) = 1; for n > 1, a(n) = (1-A020639(n)) * a(A028234(n)), because multiplicative with a(p^e) = (1-p). - Antti Karttunen, Nov 28 2017
a(n) = 1 - Sum_{d|n, d > 1} d*a(n/d). - Ilya Gutkovskiy, Apr 26 2019
From Richard L. Ollerton, May 07 2021: (Start)
For n>1, Sum_{k=1..n} a(gcd(n,k)) = 0.
For n>1, Sum_{k=1..n} a(n/gcd(n,k))*phi(gcd(n,k))/phi(n/gcd(n,k)) = 0. (End)
a(n) = rad(n)*(-1)^omega(n)*phi(n)/n = A062953(n)*A000010(n)/n. - Amrit Awasthi, Jan 30 2022
a(n) = mu(n)*phi(n) = A008683(n)*A000010(n) whenever n is squarefree. - Amrit Awasthi, Feb 03 2022
From Peter Bala, Jan 24 2024: (Start)
a(n) = Sum_{d divides n} core(d)*mu(d). Cf. Comment by Benoit Cloitre, dated Apr 06 2002.
a(n) = Sum_{d|n, e|n}  n/gcd(d, e) * mu(n/d) * mu(n/e) (the sum is a multiplicative function of n by Tóth, and takes the value 1 - p for n = p^e, a prime power). (End)
From Peter Bala, Feb 01 2024: (Start)
G.f. Sum_{n >= 1} (2*n-1)*moebius(2*n-1)*x^(2*n-1)/(1 + x^(2n-1)).
a(n) = (-1)^(n+1) * Sum_{d divides n, d odd} d*moebius(d). (End)

A117210 G.f. A(x) satisfies (1+x) = product_{n>=1} A(x^n).

Original entry on oeis.org

1, 1, -1, -2, 0, 1, 1, 0, -1, -1, 2, 1, -2, -3, 2, 4, 2, -5, -4, 0, 5, 2, 1, -5, -1, 2, 5, -5, -2, -2, 5, -1, 3, -6, 2, 0, 11, -6, -4, -10, 12, -1, 6, -13, 5, -8, 16, -8, 9, -13, 17, -17, 7, -21, 25, -10, 22, -29, 20, -24, 34, -24, 27, -44, 35, -32, 39, -52, 45, -39, 66, -53, 47, -76, 70, -55, 79, -98, 66, -84, 115, -89

Offset: 0

Paul D. Hanna, Mar 03 2006

Self-convolution inverse is A117211.

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 (terms 0..1000 from Paul D. Hanna)
N. J. A. Sloane, Transforms

Cf. A117212 (l.g.f.), A117211 (inverse); variants: A117208, A117209.

nmax = 81; CoefficientList[ Series[ Product[ (1 + x^k)^(MoebiusMu[k]), {k, 1, nmax} ], {x, 0, nmax} ], x ] (* Stuart Clary, Apr 15 2006 *)

{a(n)=if(n==0,1,if(n==1,1, -polcoeff(prod(i=1,n,sum(k=0,min(n\i,n-1),a(k)*x^(i*k))+x*O(x^n)),n,x)))}

G.f.: A(x) = exp( Sum_{n>=1} A117212(n)*x^n/n ).
G.f.: A(x) = product_{k>=1}(1 + x^k)^mu(k) where mu(k) is the Möbius function, A008683 - Stuart Clary, Apr 15 2006
Weigh transform of A008683(n). - Vladeta Jovovic, Apr 20 2006

A300663 Expansion of 1/(1 - Sum_{k>=1} mu(k)*x^k), where mu() is the Moebius function (A008683).

Original entry on oeis.org

1, 1, 0, -2, -3, -2, 3, 8, 8, -2, -16, -24, -10, 24, 59, 54, -11, -117, -174, -90, 162, 431, 449, -20, -835, -1393, -848, 1062, 3352, 3748, 317, -6257, -11134, -7583, 7294, 25956, 30786, 5217, -46545, -88132, -65062, 48534, 199234, 249263, 63034, -342174, -691679, -554002

Offset: 0

Ilya Gutkovskiy, Mar 10 2018

sign

Invert transform of A008683.

Seiichi Manyama, Table of n, a(n) for n = 0..5000
N. J. A. Sloane, Transforms

Cf. A008683, A050385, A068341, A073776, A073777, A117209, A117210, A185694, A280194.

a:= proc(n) option remember; `if`(n=0, 1, add(
      numtheory[mobius](j)*a(n-j), j=1..n))
    end:
seq(a(n), n=0..50);  # Alois P. Heinz, Mar 10 2018

nmax = 47; CoefficientList[Series[1/(1 - Sum[MoebiusMu[k] x^k, {k, 1, nmax}]), {x, 0, nmax}], x]
a[0] = 1; a[n_] := a[n] = Sum[MoebiusMu[k] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 47}]

my(N=66, x='x+O('x^N)); Vec(1/(1-sum(k=1, N, moebius(k)*x^k))) \\ Seiichi Manyama, Apr 06 2022

a(n) = if(n==0, 1, sum(k=1, n, moebius(k)*a(n-k))); \\ Seiichi Manyama, Apr 06 2022

G.f.: 1/(1 - Sum_{k>=1} A008683(k)*x^k).

a(0) = 1; a(n) = Sum_{k=1..n} mu(k) * a(n-k). - Seiichi Manyama, Apr 06 2022

A320778 Inverse Euler transform of the Euler totient function phi = A000010.

Original entry on oeis.org

1, 1, 0, 1, 0, 2, -3, 4, -4, 4, -9, 14, -19, 30, -42, 50, -76, 128, -194, 286, -412, 598, -909, 1386, -2100, 3178, -4763, 7122, -10758, 16414, -25061, 38056, -57643, 87568, -133436, 203618, -311128, 475536, -726355, 1109718, -1697766, 2601166, -3987903, 6114666

Offset: 0

Gus Wiseman, Oct 22 2018

sign

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.

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, A320779, A320780, A320781, A320782.

# The function EulerInvTransform is defined in A358451.
a := EulerInvTransform(n -> ifelse(n=0, 1, NumberTheory:-Totient(n))):
seq(a(n), n = 0..43); # Peter Luschny, Nov 21 2022

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[EulerPhi,30]]

A320767 Inverse Euler transform applied once to {1,-1,0,0,0,...}, twice to {1,0,0,0,0,...}, or three times to {1,1,1,1,1,...}.

Original entry on oeis.org

1, 1, -2, 1, -1, 2, -3, 4, -5, 8, -13, 18, -25, 40, -62, 90, -135, 210, -324, 492, -750, 1164, -1809, 2786, -4305, 6710, -10460, 16264, -25350, 39650, -62057, 97108, -152145, 238818, -375165, 589520, -927200, 1459960, -2300346, 3626200, -5720274, 9030450

Offset: 0

Gus Wiseman, Oct 20 2018

sign

Cf. A000081, A001970, A007562, A007294, A034691, A059966, A061255, A061256, A061257, A065490, A073576, A117209.

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]}]];
Nest[EulerInvTransform,Array[DiscreteDelta,50,0],2]

A117208 G.f. A(x) satisfies (1-x) = product_{n>=1} A(x^n).

Original entry on oeis.org

1, -1, 1, 0, 0, 1, -1, 2, -1, 1, 0, 1, 0, 1, 0, 0, 2, -1, 2, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 2, 1, 1, 1, 0, 2, 0, 3, 0, 0, 2, 0, 3, 0, 3, -1, 2, 0, 4, 1, 1, 3, -3, 5, 1, 3, 0, 2, -1, 2, 4, 2, 4, -5, 6, -1, 2, 7, -2, 1, -1, 4, 3, 5, 2, -2, 1, 1, 8, 2, 4, -1, -3, 4, 9, 4, -2, 4, -7, 6, 7, 10, -1, -3, -1, 1, 11, 4, 8, -15, 2, 5, 7, 13, 1, -9, -7, 9

Offset: 0

Paul D. Hanna, Mar 03 2006

sign

Self-convolution inverse is A117209.

Paul D. Hanna, Table of n, a(n) for n = 0..1000

Cf. A023900 (l.g.f.), A117209 (inverse); variants: A117210, A117211, A117212.

nmax = 106; CoefficientList[ Series[ Product[ (1 - x^k)^(MoebiusMu[k]), {k, 1, nmax} ], {x, 0, nmax} ], x ] (* Stuart Clary, Apr 15 2006 *)

{a(n)=polcoeff(exp(-sum(k=1,n+1,sumdiv(k,d,d*moebius(d))*x^k/k)+x*O(x^n)),n)}

G.f.: A(x) = exp( -Sum_{n>=1} A023900(n)*x^n/n ), where A023900 is the Dirichlet inverse of Euler totient function.
Euler transform of the negative of the Möbius function. - Stuart Clary, Apr 15 2006
G.f.: A(x) = product_{k>=1}(1 - x^k)^mu(k) where mu(k) is the Möbius function, A008683. - Stuart Clary, Apr 15 2006

A117211 G.f. A(x) satisfies 1/(1+x) = product_{n>=1} A(x^n).

Original entry on oeis.org

1, -1, 2, -1, 1, 1, -2, 4, -4, 4, -3, 2, 0, -1, 2, -3, 4, -5, 5, -4, 4, -3, 1, 1, -2, 3, -5, 5, -5, 3, -1, 1, 3, -4, 3, -2, 2, -1, -3, 4, -6, 4, -4, 5, 0, -4, 2, -1, 4, -2, 3, -3, 6, -9, 7, -1, 1, -4, -8, 10, -6, 10, -11, 12, -9, -4, 7, -7, 15, -25, 10, -5, 13, 1, -6, 16, -21, 14, -15, 28, -6, -12, -3, 1, 18, -18, 17, -25, 13

Offset: 0

Paul D. Hanna, Mar 03 2006

sign

Self-convolution inverse is A117210.

Paul D. Hanna, Table of n, a(n) for n = 0..1000

Cf. A117212 (l.g.f.), A117210 (inverse); variants: A117208, A117209.

nmax = 88; CoefficientList[ Series[ Product[ (1 + x^k)^(-MoebiusMu[k]), {k, 1, nmax} ], {x, 0, nmax} ], x ] (* Stuart Clary, Apr 15 2006 *)

{a(n)=if(n==0,1,if(n==1,-1, (-1)^n-polcoeff(prod(i=1,n,sum(k=0,min(n\i,n-1),a(k)*x^(i*k))+x*O(x^n)),n,x)))}

G.f.: A(x) = exp( -Sum_{n>=1} A117212(n)*x^n/n ).

G.f.: A(x) = product_{k>=1}(1 + x^k)^(-mu(k)) where mu(k) is the Möbius function, A008683. - Stuart Clary, Apr 15 2006

A118206 Euler transform of the Liouville function.

Original entry on oeis.org

1, 1, 0, -1, 0, 0, 0, -1, -1, 0, 2, 0, -2, -2, 1, 2, 2, -2, -2, 0, 2, -1, -1, -2, 2, 5, 4, -5, -5, -2, 4, 2, -2, -7, 3, 8, 5, -7, -6, 1, 14, 4, -9, -14, 2, 5, 5, -10, -7, 6, 22, 3, -12, -20, 1, 15, 15, -16, -12, 4, 25, 6, -14, -31, 13, 33, 14, -39, -32, -6, 39, 15, -20, -31, 33, 41, 14, -53, -44, 3, 66, 12, -35, -51, 22, 48, 36, -60, -43, 21

Offset: 0

Stuart Clary, Apr 15 2006

Paul D. Hanna, Table of n, a(n) for n = 0..1000
Peter Bala, Cyclotomic polynomials and the generating functions of A118205 and A118206
Wikipedia, Cyclotomic polynomial
Wikipedia, Liouville function

Cf. A118205, A118207, A118208, A061020, A117209.

nmax = 100; lambda[k_Integer?Positive] := If[ k > 1, (-1)^Total[ Part[Transpose[FactorInteger[k]], 2] ], 1 ]; CoefficientList[ Series[ Product[ (1 - x^k)^(-lambda[k]), {k, 1, nmax} ], {x, 0, nmax} ], x ]
max = 100; s = Product[(1 - x^k)^(-LiouvilleLambda[k]), {k, 1, max}] + O[x]^max; CoefficientList[s, x] (* Jean-François Alcover, Dec 23 2015 *)

{a(n)=polcoeff(exp(sum(m=1,n,sumdiv(m,d,d*moebius(core(d)))*x^m/m)+x*O(x^n)),n)} /* Cf. A061020 - Paul D. Hanna, Sep 22 2011 */

G.f.: A(x) = Product_{k>=1} (1 - x^k)^(-lambda(k)) where lambda(k) is the Liouville function, A008836.
Logarithmic derivative yields A061020. - Paul D. Hanna, Sep 22 2011
G.f.: A(x) = Product_{k >= 1} C(2*k,x^k), where C(k,x) denotes the k-th cyclotomic polynomial. - Peter Bala, Mar 31 2023

A320776 Inverse Euler transform of the number of prime factors (with multiplicity) function A001222.

Original entry on oeis.org

1, 0, 1, 1, 1, 0, -1, -1, 0, 1, 0, -1, -1, -1, 1, 3, 3, -2, -5, -4, 0, 7, 7, 0, -9, -10, 2, 15, 15, -3, -27, -30, 3, 46, 51, 1, -71, -91, -7, 117, 157, 23, -194, -265, -57, 318, 465, 111, -536, -821, -230, 893, 1456, 505, -1485, -2559, -1036, 2433, 4483, 2022

Offset: 0

Gus Wiseman, Oct 22 2018

sign

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, A320777, A320778, A320779, A320780, A320781, A320782.

# The function EulerInvTransform is defined in A358451.
a := EulerInvTransform(n -> ifelse(n=0, 1, NumberTheory:-NumberOfPrimeFactors(n))):
seq(a(n), n = 0..59); # Peter Luschny, Nov 21 2022

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[PrimeOmega,100]]

A320777 Inverse Euler transform of the number of distinct prime factors (without multiplicity) function A001221.

Original entry on oeis.org

1, 0, 1, 1, 0, 0, 0, 0, -1, -1, 1, 1, 0, -1, 0, 1, -1, -2, 1, 3, 1, -2, -2, 1, 0, -4, 0, 6, 6, -4, -8, 1, 4, -4, -5, 10, 16, -4, -25, -7, 17, 5, -16, 2, 42, 12, -58, -48, 40, 59, -27, -44, 67, 86, -103, -187, 36, 236, 45, -213, -5, 284, -23, -526, -188, 663, 520

Offset: 0

Gus Wiseman, Oct 22 2018

sign

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, A320778, A320779, A320780, A320781, A320782.

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[PrimeNu,100]]

cp's OEIS Frontend

A023900 Dirichlet inverse of Euler totient function (A000010).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

PARI

PARI

Python

Python

Scheme

Formula

A117210 G.f. A(x) satisfies (1+x) = product_{n>=1} A(x^n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A300663 Expansion of 1/(1 - Sum_{k>=1} mu(k)*x^k), where mu() is the Moebius function (A008683).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Formula

A320778 Inverse Euler transform of the Euler totient function phi = A000010.

Views

Author

Keywords

Comments

Crossrefs

Programs

Maple

Mathematica

A320767 Inverse Euler transform applied once to {1,-1,0,0,0,...}, twice to {1,0,0,0,0,...}, or three times to {1,1,1,1,1,...}.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

A117208 G.f. A(x) satisfies (1-x) = product_{n>=1} A(x^n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A117211 G.f. A(x) satisfies 1/(1+x) = product_{n>=1} A(x^n).

Views

Author

Keywords

Comments

Links

Crossrefs