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.

A329644 Möbius transform of A323244, the deficiency of A156552(n).

Original entry on oeis.org

0, 1, 1, 1, 1, 2, 1, 4, -1, 3, 1, 5, 1, 14, 0, 0, 1, 9, 1, 12, -5, 16, 1, 8, -5, 44, 4, 5, 1, 2, 1, 24, 12, 80, -4, -4, 1, 254, -14, 0, 1, 22, 1, 47, 7, 224, 1, 24, -13, 19, 6, 83, 1, 12, -21, 44, -14, 746, 1, 14, 1, 1360, 20, -8, 8, 9, 1, 131, 252, 24, 1, 12, 1, 3836, 13, 149, -12, 71, 1, 56, -16, 5456, 1, -21, -74, 12248, -350, -40, 1
Offset: 1

Views

Author

Antti Karttunen, Nov 21 2019

Keywords

Comments

The first eleven zeros occur at n = 1, 15, 16, 40, 96, 119, 120, 160, 893, 2464, 6731. There are 3091 negative terms among the first 10000 terms.
Applying this function to the divisors of the first four terms of A324201 reveals the following pattern:
------------------------------------------------------------------------------------
A324201(n) divisors a(n) applied Sum of positive
to each: terms, A329610
9: [1, 3, 9] -> [0, 1, -1] 1
125: [1, 5, 25, 125] -> [0, 1, -5, 4] 5
161051: [1, 11, 121, 1331, 14641, 161051] -> [0, 1, -29, 4, -240, 264] 269
410338673: [1, 17, 289, 4913, 83521, 1419857, 24137569, 410338673]
-> [0, 1, -125, 4, -1008, 1032, -5048, 5144] 6181
The positive and negative terms seem to alternate, and the fourth term (from case n=125 onward) is always 4. See also array A329637.

Crossrefs

Programs

  • PARI
    A156552(n) = {my(f = factor(n), p2 = 1, res = 0); for(i = 1, #f~, p = 1 << (primepi(f[i, 1]) - 1); res += (p * p2 * (2^(f[i, 2]) - 1)); p2 <<= f[i, 2]); res}; \\ From A156552
    A323244(n) = if(1==n, 0, my(k=A156552(n)); (2*k)-sigma(k));
    A329644(n) = sumdiv(n,d,moebius(n/d)*A323244(d));

Formula

a(n) = Sum_{d|n} A008683(n/d) * A323244(d).
a(n) = Sum_{d|n} A008683(n/d) * (2*A156552(d) - A323243(d)).
a(1) = 0; for n > 1, a(n) = 2*A297112(n) - A324543(n) = 2^A297113(n) - A324543(n).
a(n) = A329642(n) - A329643(n).
For all n >= 1, a(A000040(n)^2) = A323244(A000040(n)^2)-1 = -A036563(n).
For all primes p, a(p^3) = A323244(p^3) - A323244(p^2) = 4.

A329637 Square array A(n, k) = A329644(prime(n)^k), read by falling antidiagonals: (1,1), (1,2), (2,1), (1,3), (2,2), (3,1), ...

Original entry on oeis.org

1, 1, 1, 4, -1, 1, 0, 4, -5, 1, 24, -16, 4, -13, 1, -8, 40, -48, 4, -29, 1, 104, -88, 72, -112, 4, -61, 1, -48, 184, -248, 136, -240, 4, -125, 1, 352, -400, 344, -568, 264, -496, 4, -253, 1, 80, 544, -1104, 664, -1208, 520, -1008, 4, -509, 1, 1424, -784, 928, -2512, 1304, -2488, 1032, -2032, 4, -1021, 1
Offset: 1

Views

Author

Antti Karttunen, Nov 22 2019

Keywords

Examples

			The top left corner of the array:
   n   p_n |k=1,     2, 3,      4,     5,      6,     7,       8,      9,      10
  ---------+----------------------------------------------------------------------
   1 ->  2 |  1,     1, 4,      0,    24,     -8,   104,     -48,    352,      80,
   2 ->  3 |  1,    -1, 4,    -16,    40,    -88,   184,    -400,    544,    -784,
   3 ->  5 |  1,    -5, 4,    -48,    72,   -248,   344,   -1104,    928,   -2512,
   4 ->  7 |  1,   -13, 4,   -112,   136,   -568,   664,   -2512,   1696,   -5968,
   5 -> 11 |  1,   -29, 4,   -240,   264,  -1208,  1304,   -5328,   3232,  -12880,
   6 -> 13 |  1,   -61, 4,   -496,   520,  -2488,  2584,  -10960,   6304,  -26704,
   7 -> 17 |  1,  -125, 4,  -1008,  1032,  -5048,  5144,  -22224,  12448,  -54352,
   8 -> 19 |  1,  -253, 4,  -2032,  2056, -10168, 10264,  -44752,  24736, -109648,
   9 -> 23 |  1,  -509, 4,  -4080,  4104, -20408, 20504,  -89808,  49312, -220240,
  10 -> 29 |  1, -1021, 4,  -8176,  8200, -40888, 40984, -179920,  98464, -441424,
  11 -> 31 |  1, -2045, 4, -16368, 16392, -81848, 81944, -360144, 196768, -883792,
		

Crossrefs

Rows 1-2: A329891, A329892 (from n>=1).
Column 1: A000012, Column 2: -A036563(n) (from n>=1), Column 3: A010709.

Programs

  • PARI
    up_to = 105;
    A329890(n) = if(1==n,1,sigma((2^n)-1)-sigma((2^(n-1))-1));
    A329637sq(n,k) = ((2^(n+k-1)) - (((2^n)-1) * A329890(k)));
    A329637list(up_to) = { my(v = vector(up_to), i=0); for(a=1,oo, for(col=1,a, i++; if(i > up_to, return(v)); v[i] = A329637sq(col,(a-(col-1))))); (v); };
    v329637 = A329637list(up_to);
    A329637(n) = v329637[n];

Formula

A(n, k) = A329644(A182944(n, k)).
A(n, k) = A000079(n+k-1) - (A000225(n) * A329890(k)).

A329641 a(n) = gcd(A329638(n), A329639(n)).

Original entry on oeis.org

0, 1, 1, 2, 1, 4, 1, 6, 1, 5, 1, 10, 1, 16, 2, 6, 1, 1, 1, 18, 1, 18, 1, 22, 1, 46, 1, 22, 1, 10, 1, 30, 14, 82, 2, 1, 1, 256, 2, 22, 1, 1, 1, 66, 1, 226, 1, 46, 1, 1, 8, 130, 1, 1, 1, 70, 2, 748, 1, 42, 1, 1362, 2, 2, 10, 42, 1, 214, 254, 4, 1, 1, 1, 3838, 5, 406, 2, 2, 1, 78, 1, 5458, 1, 26, 2, 12250, 2, 10, 1, 2, 1, 934
Offset: 1

Views

Author

Antti Karttunen, Nov 22 2019

Keywords

Crossrefs

Programs

  • PARI
    A323243(n) = if(1==n,0,sigma(A156552(n)));
    A156552(n) = {my(f = factor(n), p2 = 1, res = 0); for(i = 1, #f~, p = 1 << (primepi(f[i, 1]) - 1); res += (p * p2 * (2^(f[i, 2]) - 1)); p2 <<= f[i, 2]); res}; \\ From A156552
    A329644(n) = sumdiv(n,d,moebius(n/d)*((2*A156552(d))-A323243(d)));
    A329641(n) = { my(t=0,u=0); fordiv(n, d, if((d=A329644(d))>0, t +=d, u -= d)); gcd(u,t); };

Formula

a(n) = gcd(A329638(n), A329639(n)).
a(A324201(n)) = A329610(n).
Showing 1-3 of 3 results.