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.

Showing 1-3 of 3 results.

A087003 a(2n) = 0 and a(2n+1) = mu(2n+1); also the sum of Mobius function values computed for terms of 3x+1 trajectory started at n, provided that Collatz conjecture is true.

Original entry on oeis.org

1, 0, -1, 0, -1, 0, -1, 0, 0, 0, -1, 0, -1, 0, 1, 0, -1, 0, -1, 0, 1, 0, -1, 0, 0, 0, 0, 0, -1, 0, -1, 0, 1, 0, 1, 0, -1, 0, 1, 0, -1, 0, -1, 0, 0, 0, -1, 0, 0, 0, 1, 0, -1, 0, 1, 0, 1, 0, -1, 0, -1, 0, 0, 0, 1, 0, -1, 0, 1, 0, -1, 0, -1, 0, 0, 0, 1, 0, -1, 0, 0, 0, -1, 0, 1, 0, 1, 0, -1, 0, 1, 0, 1, 0, 1, 0, -1, 0, 0, 0, -1, 0, -1, 0, -1, 0, -1, 0, -1, 0, 1, 0, -1
Offset: 1

Views

Author

Labos Elemer, Oct 02 2003

Keywords

Comments

Observe that (these summatory) terms are from {-1,0,1}, so behave like Mobius function values, not like Mertens function values. Moreover, empirically: a(n) deviates from mu(initial-value) = mu(n) only if iv = n is an even squarefree number (i.e., it is from A039956). - This comment, like also the next one, concerns the original Collatz-related definition of this sequence. - Antti Karttunen, Sep 18 2017
From Marc LeBrun, Feb 19 2004: (Start)
Absolute values are the same as those of A091069. First consider the descending parts of Collatz (or 3x+1) trajectories, those that begin with even numbers 2^p k, with k odd. These go 2^p*k, 2^(p-1)*k, ... 2k, k. All but 2k and k are divisible by 4, a (rational) square, hence their mu values are all 0 and so they contribute nothing to the sum.
Then at the end, since mu(2k) = -mu(k), the last two steps cancel each other out. So every descending chain in a trajectory contributes 0. Of course the full trajectory of every even number consists entirely of descending chains, so A087003 is 0 for all even n.
On the other hand, the trajectory of every odd number consists of just that number followed by the trajectory of an even number (which contributes nothing) so A087003 is indeed equal to mu(n) for odd n.
(End)
The sequence is multiplicative; it may be defined as the Dirichlet inverse of the integers modulo 2 (A000035). - Gerard P. Michon, Apr 29 2007
a(n) appears in the second column of A156241 at every second row. - Mats Granvik, Feb 07 2009

Crossrefs

Cf. A000035 (the Dirichlet inverse), A318657/A318658 (the "Dirichlet Square Root").

Programs

  • Mathematica
    c[x_] := (1-Mod[x, 2])*(x/2)+Mod[x, 2]*(3*x+1); c[1]=1; fpl[x_] := Delete[FixedPointList[c, x], -1] lf[x_] := Length[fpl[x]] Table[Apply[Plus, Table[MoebiusMu[Part[fpl[w], j]], {j, 1, lf[w]}]], {w, 1, 256}]
    Riffle[MoebiusMu[Range[1,121,2]],0] (* Harvey P. Dale, Jan 24 2025 *)
  • PARI
    A006370(n) = if(n%2, 3*n+1, n/2); \\ This function from Michael B. Porter, May 29 2010
    A087003(n) = { my(s=1); while(n>1, s += moebius(n); n = A006370(n)); (s); }; \\ Antti Karttunen, Sep 14 2017
    
  • PARI
    a(n)={sumdiv(n, d,  my(e=valuation(d, 2)); if(d==1<Andrew Howroyd, Aug 04 2018
    
  • PARI
    A087003(n) = ((n%2)*moebius(n)); \\ Antti Karttunen, Sep 01 2018

Formula

a(n) = A008683(n) + A292273(n). - Antti Karttunen, Sep 14 2017
Moebius transform of A209229. - Andrew Howroyd, Aug 04 2018
From Jianing Song, Aug 04 2018: (Start)
Multiplicative with a(2^e) = 0, a(p^e) = (-1 + (-1)^e)/2 for odd primes p.
Dirichlet g.f.: 1/((1 - 2^(-s))*zeta(s)).
(End)
From Antti Karttunen, Sep 01 2018: (Start)
a(n) = A000035(n)*A008683(n).
Dirichlet convolution of A318657/A046644 with itself.
(End)
Sum_{n>=1} a(n)/n^2 = A217739 . Sum_{n>=1} a(n)/n^3 = A233091. Sum_{n>=1} a(n)/n^4 = A300707. - R. J. Mathar, Dec 17 2024

Extensions

a(2n) = 0, a(2n+1) = mu(2n+1) added to the name as the new primary definition by Antti Karttunen, Sep 18 2017

A318658 Denominators of the sequence whose Dirichlet convolution with itself yields A087003, a(2n) = 0 and a(2n+1) = moebius(2n+1).

Original entry on oeis.org

1, 1, 2, 1, 2, 1, 2, 1, 8, 1, 2, 1, 2, 1, 4, 1, 2, 1, 2, 1, 4, 1, 2, 1, 8, 1, 16, 1, 2, 1, 2, 1, 4, 1, 4, 1, 2, 1, 4, 1, 2, 1, 2, 1, 16, 1, 2, 1, 8, 1, 4, 1, 2, 1, 4, 1, 4, 1, 2, 1, 2, 1, 16, 1, 4, 1, 2, 1, 4, 1, 2, 1, 2, 1, 16, 1, 4, 1, 2, 1, 128, 1, 2, 1, 4, 1, 4, 1, 2, 1, 4, 1, 4, 1, 4, 1, 2, 1, 16, 1, 2, 1, 2, 1, 8
Offset: 1

Views

Author

Antti Karttunen, Aug 31 2018

Keywords

Comments

The sequence seems to give the denominators of several other similarly constructed "Dirichlet Square Roots".

Crossrefs

Cf. A005187, A087003, A318657 (numerators), A318659.

Programs

  • PARI
    up_to = 65537;
    A087003(n) = ((n%2)*moebius(n)); \\ I.e. a(n) = A000035(n)*A008683(n).
    DirSqrt(v) = {my(n=#v, u=vector(n)); u[1]=1; for(n=2, n, u[n]=(v[n]/v[1] - sumdiv(n, d, if(d>1&&dA087003(n)));
    A318657(n) = numerator(v318657_18[n]);
    A318658(n) = denominator(v318657_18[n]);

Formula

a(n) = denominator of f(n), where f(1) = 1, f(n) = (1/2) * (A087003(n) - Sum_{d|n, d>1, d 1.
a(n) = 2^A318659(n).
a(2n) = 1, a(2n-1) = A046644(2n-1) = A318512(2n-1), for all n >= 1.

A373582 a(n) = Sum_{k=1..n} Sum_{z=1..n} Sum_{y=1..n} Sum_{x=1..n} [GCD(f(x,y,z), n) = k] * f(x,y,z) * A023900(k), where f(x,y,z) = x^2 + y^2 - z^2.

Original entry on oeis.org

1, 0, -117, 0, -350, 0, -4263, 0, -7533, 0, -27225, 0, -17914, 0, 62100, 0, -53176, 0, -250173, 0, 83790, 0, -541167, 0, -168750, 0, -557685, 0, -459186, 0, -1801875, 0, 533610, 0, 2249100, 0, -1223886, 0, 3157596, 0, -1849100, 0, -6717417, 0, 3863700, 0, -9602523
Offset: 1

Views

Author

Mats Granvik, Jun 10 2024

Keywords

Comments

Sign(a(n)) appears to be equal to A318657(n).
For n > 1, mod(a(n),2) appears to be equal to A354033(n).

Crossrefs

Programs

  • Mathematica
    nn = 47; a[n_] = DivisorSum[n, MoebiusMu[#]  # &]; p = 2; f = x^p + y^p - z^p; ParallelTable[Sum[Sum[Sum[Sum[If[GCD[f, n] == k, f, 0] a[k], {x, 1, n}], {y, 1, n}], {z, 1, n}], {k, 1, n}], {n, 1, nn}]

Formula

a(n) = Sum_{k=1..n} Sum_{z=1..n} Sum_{y=1..n} Sum_{x=1..n} [GCD(f(x,y,z), n) = k] * f(x,y,z) * A023900(k), where f(x,y,z) = x^2 + y^2 - z^2.
Showing 1-3 of 3 results.