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-9 of 9 results.

A161189 Set a(n) = k if n is in the set zeta(k) - 1 in the notation defined by William J. Keith in 2010.

Original entry on oeis.org

2, 2, 3, 2, 2, 2, 4, 2, 2, 2, 3, 2, 2, 3, 5, 2, 2, 2, 3, 2, 2, 2, 4, 2, 2, 2, 3, 2, 2, 2, 6, 3, 2, 2, 3, 2, 2, 2, 4, 2, 2, 2, 3, 2, 2, 2, 5, 2, 2, 4, 3, 2, 2, 2, 4, 2, 2, 2, 3, 2, 2, 2, 7, 2, 2, 2, 3, 3, 2, 2, 4, 2, 2, 2, 3, 3, 2, 3, 5, 2, 2, 2, 3, 2, 2, 3, 4, 2, 2, 2, 3, 2, 2, 2, 6, 2, 2, 2, 3, 2
Offset: 1

Views

Author

Gary W. Adamson, Jun 06 2009

Keywords

Comments

The numbers 2, 3, and 4 occur with density 0.929... since (zeta(2) - 1) + (zeta(3) - 1) + (zeta(4) - 1) = (Pi^2/6 - 1) + 0.20205... + 0.0823... = 0.929...
From Kevin Ryde, Dec 05 2020: (Start)
a(n) can be calculated by writing n-1 in the following mixed-radix expansion,
.. m m ... m m m-1 ... 3 2 radix
.. !=m-1 m-1 ... m-1 0 !=0 ... !=0 !=0 digit of n-1
|-----j-----| a(n) = j+2
The least significant digit is radix 2, the next is radix 3, etc., until a 0 digit is found at radix m. Further higher digits are radix m. j is the number of consecutive m-1 digits immediately above the 0. That part of n-1 is floor((n-1)/m!) and is equal to floor(n/m!) since any carry when incrementing n-1 to n will not go past the 0 digit.
Those n in class k, i.e., a(n)=k, can be characterized by certain sets of remainders n mod m^(k-1)*m! for each m >= 2. The modulus covers digits up to and including !=m-1 for the given k. There are (m-1)! combinations of permitted digit values within the modulus, so density (m-1)!/(m^(k-1)*m!) = 1/m^k (and total Sum_{m>=2} 1/m^k = zeta(k)-1).
The smallest n with a(n)=k is n = 2^(k-1)-1. This is m=2 and n-1 = binary 011..110 where the number of 1's is j=k-2.
(End)

Examples

			Examples: A143028 gives a subset of terms within the natural number system that tend to density zeta(2) - 1 = Pi^2/6 - 1 = 0.644...: where A143028 = [1, 2, 4, 5, 6, 8, 9, 10, 12, ...]. Terms a(1), a(2), a(4), ... = 2.
Similarly, zeta(3) - 1 = 0.20205..., denoted by A143029: [3, 11, 14, 19, 27, 32, ...]; so terms a(3), a(11), a(14), ... = 3.
From _Kevin Ryde_, Dec 05 2020: (Start)
For n = 880644, the mixed-radix expansion of n-1 is
            m           lowest 0 digit gives m
  6 6  6 6  6 5 4 3 2   radix
  5 3  5 5  0 3 1 2 1   digit of n-1
      |---|             2 digits m-1, a(n)=2+2=4
(End)
		

Crossrefs

Programs

  • Mathematica
    a[n_] := Module[{k = n - 1, m = 2, r}, While[{k, r} = QuotientRemainder[k, m]; r != 0, m++]; IntegerExponent[k + 1, m] + 2]; Array[a, 30] (* Amiram Eldar, Feb 15 2021 after Kevin Ryde's PARI code *)
  • PARI
    a(n) = n--; my(m=2,r); while([n,r]=divrem(n,m); r!=0, m++); 2+valuation(n+1,m); \\ Kevin Ryde, Dec 05 2020

Formula

Given [Keith's array, section 4]; and A143028 through A143034, which partitions the set of natural numbers according to asymptotic density of zeta(k) - 1:
A2 = [1, 2, 4, 5, 6, 10, 12, ...] = A143028, density zeta(2) - 1 = 0.6449...
A3 = [3, 11, 14, 19, 27, 32, ...] = A143029, density zeta(3) - 1 = 0.2020...
A4 = [7, 23, 39, 50, 55, 71, ...] = A143030, density zeta(4) - 1 = 0.0823...
A5 = [15, 47, 79, 111, 143, ...] = A143031, density zeta(5) - 1 = ........ etc., where Sum_{k>=2} (zeta(k) - 1) = 1.0 or 100%; such that "2" will occur with a frequency zeta(2) - 1 = 0.644...; "3" will occur with the frequency zeta(3) - 1 = 0.20205...; and "k" will occur with the frequency zeta(k) - 1. Thus a(n) = the zeta(k) - 1 subset to which n belongs, according to the system discovered by Keith.
From Kevin Ryde, Dec 05 2020: (Start)
a(n) = j+2 where n = L + m!*(b[0]*m^0 + b[1]*m^1 + b[2]*m^2 + ...) where m=A339013(n), L in the range 0 < L < m!, each digit b[i] in the range 0 <= b[i] < m, and smallest j where b[j] != m-1. [Keith, section 3]
a(n) = 2 + A286563(1+floor(n/m!), m), where m=A339013(n) and A286563(q,m) is the m-adic valuation of q (including A286563(q,m)=0 when m>q).
(End)
Asymptotic mean: lim_{m->oo} (1/m) * Sum_{k=1..m} a(k) = Sum_{k>=2} k*(zeta(k)-1) = Pi^2/6 + 1. - Amiram Eldar, Feb 15 2021

A143029 A sequence of asymptotic density zeta(3) - 1, where zeta is the Riemann zeta function.

Original entry on oeis.org

3, 11, 14, 19, 27, 32, 35, 43, 51, 59, 67, 68, 75, 76, 78, 83, 86, 91, 99, 107, 115, 122, 123, 131, 139, 140, 147, 155, 163, 171, 172, 174, 176, 179, 187, 194, 195, 203, 211, 219, 227, 230, 235, 243, 248, 251, 259, 267, 268, 270, 275, 283, 284, 291, 299, 302
Offset: 1

Views

Author

William J. Keith, Jul 17 2008, Jul 18 2008

Keywords

Comments

x is an element of this sequence if when m is the least natural number such that the least positive residue of x mod m! is no more than (m-2)!, floor(x/(m!)) is congruent to m-1 mod m and floor(x/(m*(m!))) is not congruent to m-1 mod m. The sequence is made up of the residue classes 3 mod 8; 14 and 32 mod 54; 76, 78, 172, 174, 268 and 270 mod 384, etc. A set of such sequences with entries for each zeta(k) - 1 partitions the integers. See the linked paper for their construction.

Crossrefs

Programs

  • Mathematica
    f[n_] := Module[{k = n - 1, m = 2, r}, While[{k, r} = QuotientRemainder[k, m]; r != 0, m++]; IntegerExponent[k + 1, m] + 2]; Select[Range[300], f[#] == 3 &] (* Amiram Eldar, Feb 15 2021 after Kevin Ryde at A161189 *)

Formula

a(n) = 2*a(n-1) + 3. [Obviously wrong, R. J. Mathar, Jul 14 2016]
G.f.: 1/(exp(x)-1). [Apparently not, R. J. Mathar, Jul 14 2016]

A143030 A sequence of asymptotic density zeta(4) - 1, where zeta is the Riemann zeta function.

Original entry on oeis.org

7, 23, 39, 50, 55, 71, 87, 103, 104, 119, 135, 151, 167, 183, 199, 212, 215, 231, 247, 263, 266, 279, 295, 311, 327, 343, 359, 364, 366, 374, 375, 391, 407, 423, 428, 439, 455, 471, 487, 503, 519, 535, 536, 551, 567, 583, 590, 599, 615, 631, 647, 663, 679
Offset: 1

Views

Author

William J. Keith, Jul 18 2008

Keywords

Comments

x is an element of this sequence if when m is the least natural number such that the least positive residue of x mod m! is no more than (m-2)!, floor(x/(m!)) and floor(x/(m*(m!))) are congruent to m-1 mod m, but floor(x/((m^2)*(m!))) is not. The sequence is made up of the residue classes 7 (mod 16); 50 and 104 (mod 162); 364, 366, 748, 750, 1132 and 1134 (mod 1536), etc. A set of such sequences with entries for each zeta(k) - 1 partitions the integers. See the linked paper for their construction.

Crossrefs

Programs

  • Mathematica
    f[n_] := Module[{k = n - 1, m = 2, r}, While[{k, r} = QuotientRemainder[k, m]; r != 0, m++]; IntegerExponent[k + 1, m] + 2]; Select[Range[700], f[#] == 4 &] (* Amiram Eldar, Feb 15 2021 after Kevin Ryde at A161189 *)

A143031 A sequence of asymptotic density zeta(5) - 1, where zeta is the Riemann zeta function.

Original entry on oeis.org

15, 47, 79, 111, 143, 158, 175, 207, 239, 271, 303, 320, 335, 367, 399, 431, 463, 495, 527, 559, 591, 623, 644, 655, 687, 719, 751, 783, 806, 815, 847, 879, 911, 943, 975, 1007, 1039, 1071, 1103, 1130, 1135, 1167, 1199, 1231, 1263, 1292, 1295, 1327, 1359
Offset: 1

Views

Author

William J. Keith, Jul 18 2008

Keywords

Comments

Made up of a collection of mutually exclusive residue classes modulo multiples of factorials. A set of such sequences with entries for each zeta(k) - 1 partitions the integers. See the linked paper for their construction.

Crossrefs

Programs

  • Mathematica
    f[n_] := Module[{k = n - 1, m = 2, r}, While[{k, r} = QuotientRemainder[k, m]; r != 0, m++]; IntegerExponent[k + 1, m] + 2]; Select[Range[1400], f[#] == 5 &] (* Amiram Eldar, Feb 15 2021 after Kevin Ryde at A161189 *)

A143032 A sequence of asymptotic density zeta(6) - 1, where zeta is the Riemann zeta function.

Original entry on oeis.org

31, 95, 159, 223, 287, 351, 415, 479, 482, 543, 607, 671, 735, 799, 863, 927, 968, 991, 1055, 1119, 1183, 1247, 1311, 1375, 1439, 1503, 1567, 1631, 1695, 1759, 1823, 1887, 1940, 1951, 2015, 2079, 2143, 2207, 2271, 2335, 2399, 2426, 2463, 2527, 2591, 2655
Offset: 1

Views

Author

William J. Keith, Jul 18 2008

Keywords

Comments

Made up of a collection of mutually exclusive residue classes modulo multiples of factorials. A set of such sequences with entries for each zeta(k) - 1 partitions the integers. See the linked paper for their construction.

Crossrefs

Programs

  • Mathematica
    f[n_] := Module[{k = n - 1, m = 2, r}, While[{k, r} = QuotientRemainder[k, m]; r != 0, m++]; IntegerExponent[k + 1, m] + 2]; Select[Range[2700], f[#] == 6 &] (* Amiram Eldar, Feb 15 2021 after Kevin Ryde at A161189 *)

A143033 A sequence of asymptotic density zeta(7) - 1, where zeta is the Riemann zeta function.

Original entry on oeis.org

63, 191, 319, 447, 575, 703, 831, 959, 1087, 1215, 1343, 1454, 1471, 1599, 1727, 1855, 1983, 2111, 2239, 2367, 2495, 2623, 2751, 2879, 2912, 3007, 3135, 3263, 3391, 3519, 3647, 3775, 3903, 4031, 4159, 4287, 4415, 4543, 4671, 4799, 4927, 5055, 5183, 5311
Offset: 1

Views

Author

William J. Keith, Jul 18 2008

Keywords

Comments

Made up of a collection of mutually exclusive residue classes modulo multiples of factorials. A set of such sequences with entries for each zeta(k) - 1 partitions the integers. See the linked paper for their construction.

Crossrefs

Programs

  • Mathematica
    f[n_] := Module[{k = n - 1, m = 2, r}, While[{k, r} = QuotientRemainder[k, m]; r != 0, m++]; IntegerExponent[k + 1, m] + 2]; Select[Range[5300], f[#] == 7 &] (* Amiram Eldar, Feb 15 2021 after Kevin Ryde at A161189 *)

A143034 A sequence of asymptotic density zeta(8) - 1, where zeta is the Riemann zeta function.

Original entry on oeis.org

127, 383, 639, 895, 1151, 1407, 1663, 1919, 2175, 2431, 2687, 2943, 3199, 3455, 3711, 3967, 4223, 4370, 4479, 4735, 4991, 5247, 5503, 5759, 6015, 6271, 6527, 6783, 7039, 7295, 7551, 7807, 8063, 8319, 8575, 8744, 8831, 9087, 9343, 9599, 9855, 10111
Offset: 1

Views

Author

William J. Keith, Jul 18 2008

Keywords

Comments

Made up of a collection of mutually exclusive residue classes modulo multiples of factorials. A set of such sequences with entries for each zeta(k) - 1 partitions the integers. See the linked paper for their construction.

Crossrefs

Programs

  • Mathematica
    f[n_] := Module[{k = n - 1, m = 2, r}, While[{k, r} = QuotientRemainder[k, m]; r != 0, m++]; IntegerExponent[k + 1, m] + 2]; Select[Range[10^4], f[#] == 8 &] (* Amiram Eldar, Feb 15 2021 after Kevin Ryde at A161189 *)

A143035 A sequence of asymptotic density zeta(9) - 1, where zeta is the Riemann zeta function.

Original entry on oeis.org

255, 767, 1279, 1791, 2303, 2815, 3327, 3839, 4351, 4863, 5375, 5887, 6399, 6911, 7423, 7935, 8447, 8959, 9471, 9983, 10495, 11007, 11519, 12031, 12543, 13055, 13118, 13567, 14079, 14591, 15103, 15615, 16127, 16639, 17151, 17663, 18175
Offset: 1

Views

Author

William J. Keith, Jul 18 2008

Keywords

Comments

Made up of a collection of mutually exclusive residue classes modulo multiples of factorials. A set of such sequences with entries for each zeta(k) - 1 partitions the integers. See the linked paper for their construction.

Crossrefs

Programs

  • Mathematica
    f[n_] := Module[{k = n - 1, m = 2, r}, While[{k, r} = QuotientRemainder[k, m]; r != 0, m++]; IntegerExponent[k + 1, m] + 2]; Select[Range[2*10^4], f[#] == 9 &] (* Amiram Eldar, Feb 15 2021 after Kevin Ryde at A161189 *)

A143036 A sequence of asymptotic density zeta(10) - 1, where zeta is the Riemann zeta function.

Original entry on oeis.org

511, 1535, 2559, 3583, 4607, 5631, 6655, 7679, 8703, 9727, 10751, 11775, 12799, 13823, 14847, 15871, 16895, 17919, 18943, 19967, 20991, 22015, 23039, 24063, 25087, 26111, 27135, 28159, 29183, 30207, 31231, 32255, 33279, 34303, 35327
Offset: 1

Views

Author

William J. Keith, Jul 18 2008

Keywords

Comments

Made up of a collection of mutually exclusive residue classes modulo multiples of factorials. A set of such sequences with entries for each zeta(k) - 1 partitions the integers. See the linked paper for their construction.

Crossrefs

Programs

  • Mathematica
    f[n_] := Module[{k = n - 1, m = 2, r}, While[{k, r} = QuotientRemainder[k, m]; r != 0, m++]; IntegerExponent[k + 1, m] + 2]; Select[Range[4*10^4], f[#] == 10 &] (* Amiram Eldar, Feb 15 2021 after Kevin Ryde at A161189 *)
Showing 1-9 of 9 results.