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.

A299990 a(n) = A243822(n) - A000005(n).

Original entry on oeis.org

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

Views

Author

Michael De Vlieger, Feb 25 2018

Keywords

Comments

Since A010846(n) = A000005(n) + A243822(n), this sequence examines the balance of the two components among "regular" numbers.
Value of a(n) is generally less frequently negative as n increases.
a(1) = -1.
For primes p, a(p) = -2 since 1 | p and the cototient is restricted to the divisor p.
For perfect prime powers p^e, a(p^e) = -(e + 1), since all m < p^e in the cototient of p^e that do not have a prime factor q coprime to p^e are powers p^k with 1 < p^k <= p^e; all such p^k divide p^e.
Generally for n with A001221(n) = 1, a(n) = -1 * A000005(n), since the cototient is restricted to divisors, and in the case of p^e > 4, divisors and numbers in A272619(p^e) not counted by A010846(p^e).
For m >= 3, a(A002110(m)) is positive.
For m >= 9, a(A244052(m)) is positive.

Examples

			a(6) = -3 since 6 has 4 divisors, and 4 | 6^2; A243822(6) = 1 and A000005(6) = 4; 1 - 4 = -3. Alternatively, A010846(6) = 5; 5 - 2*4 = -3.
a(30) = 2 since 30 has 8 divisors and the numbers {4, 8, 9, 12, 16, 18, 20, 24, 25, 27} divide 30^e with e > 1; A243822(30) = 10 and A000005(30) = 8; 10 - 8 = 2. Alternatively, A010846(30) = 18; 18 - 2*8 = 2.
Some values of a(n) and related sequences:
   n  a(n) A010846(n) A243822(n) A000005(n) A272618(n)
  ----------------------------------------------------
   1   -1          1          0          1  0
   2   -2          2          0          2  0
   3   -2          2          0          2  0
   4   -3          3          0          3  0
   5   -2          2          0          2  0
   6   -3          5          1          4  {4}
   7   -2          2          0          2  0
   8   -4          4          0          4  0
   9   -3          3          0          3  0
  10   -2          6          2          4  {4,8}
  11   -2          2          0          2  0
  12   -4          8          2          6  {8,9}
  ...
  30    2         18         10          8  {4,8,9,12,16,18,20,24,25,27}
  ...
  34    0          8          4          4  {4,8,16,32}
  ...
		

Crossrefs

Programs

  • Mathematica
    Table[Count[Range[n], _?(PowerMod[n, Floor@ Log2@ n, #] == 0 &)] - 2 DivisorSigma[0, n], {n, 68}]

Formula

a(n) = A010846(n) - 2*A000005(n).

A300157 Records in A299990.

Original entry on oeis.org

-1, 2, 3, 6, 7, 8, 9, 10, 11, 17, 36, 45, 48, 54, 56, 67, 69, 76, 97, 118, 119, 120, 219, 231, 249, 258, 286, 299, 302, 356, 367, 377, 392, 455, 471, 533, 547, 563, 573, 576, 647, 1033, 1096, 1125, 1129, 1157, 1178, 1334, 1405, 1439, 1587, 1664, 1721, 1952
Offset: 1

Views

Author

Michael De Vlieger, Feb 26 2018

Keywords

Comments

A010846(n) = A000005(n) + A243822(n).
A000079 = records in -1 * A299990, since A243822(p^e)=0 for e>=0, n = 2^k sets records in A000005(n). The corresponding records are in A000027.
Number of terms less than 10^k with 0 <= k <= 7: {0, 1, 6, 18, 32, 51, 68, 96}.

Examples

			A299990(1) = -1, thus this is the first record. A299990(30) = 2 and is the first term greater than -1, thus 30 is the second term of this sequence. Observe that A243822(1) is 0 and A000005(1) is 1; 0 - 1 = -1. A243822(30) is 10 and A000005(30) = 8; 10 - 8 = 2.
		

Crossrefs

Programs

  • Mathematica
    Union@ FoldList[Max, Table[Count[Range[n], _?(PowerMod[n, Floor@ Log2@ n, #] == 0 &)] - 2 DivisorSigma[0, n], {n, 10^3}]]

A300859 Where records occur in A045763.

Original entry on oeis.org

1, 6, 10, 14, 18, 22, 26, 30, 36, 38, 42, 50, 54, 60, 66, 78, 84, 90, 102, 114, 120, 126, 132, 138, 150, 168, 174, 180, 186, 198, 204, 210, 234, 240, 246, 252, 258, 264, 270, 294, 300, 318, 330, 360, 378, 390, 420, 450, 462, 480, 504, 510, 540, 546, 570, 600
Offset: 1

Views

Author

Michael De Vlieger, Mar 15 2018

Keywords

Comments

The cototient of n consists of numbers 1 < m <= n that are not coprime to n, i.e., gcd(m,n) > 1. These numbers have at least one prime divisor p that also divides n. The cototient of n contains the divisors d of n; the remaining nondivisors in the cototient of n are listed in A133995. The counting function of A133995 is A045763(n). There are two species of numbers in the nondivisor-cototient of n: those in row n of A272618, of which A243822(n) is counting function, and those in row n of A272619, of which A243823(n) is the counting function. The former species divides n^e for integer e > 1, while the latter does not divide any integer power of n.
A045763(p) = 0 for p prime, therefore there are no primes in a(n).
Except for prime terms (i.e., 2), A002110 is a subset as primorials minimize the totient function. The divisor counting function is increasingly vanishingly small compared to the totient function for A002110(i) as i increases, and A002110(i) for 1 < i <= 9 is observed in a(n).
Conjectures based on 1255 terms of a(n) < 36,000,000:
1. There are no prime powers p^e > 1 in a(n), i.e., the intersection of a(n) and A000961 is {1}.
2. A293555 is a subset of A300859. Numbers that have a lot of nondivisors m | n^e with e > 1 (i.e., in row n of A272618 and counted by A243822(n)) tend to reduce the totient and increasingly have fewer divisors than highly composite numbers, widening the nondivisor-cototient.
3. A300156 is a subset of A300859. Numbers that have more nondivisors m | n^e with e > 1 (i.e., in row n of A272618 and counted by A243822(n)) than divisors tend to reduce the totient and have fewer divisors than highly composite numbers (i.e., those n in A002182), widening the nondivisor-cototient.
Increasingly many terms k in A262867 also appear in a(n) as k increases. A292867 lists record-setters in A243823, which is the counting function of one of the two species of nondivisors in the cototient of n.

Examples

			6 is in the sequence because there is 1 nondivisor in the cototient of 6 (i.e., 4), and that total exceeds 0 for all smaller positive numbers.
10 follows 6 because there are 3 nondivisors in the cototient (4, 6, 8), and this exceeds the total of 1 for n = 6, 8, and 9.
		

References

  • G. H. Hardy and E. M. Wright, An Introduction to the Theory of Numbers, p. 352 (sixth edition), see Theorem 327.

Crossrefs

Programs

  • Mathematica
    With[{s = Array[1 + # - EulerPhi@ # - DivisorSigma[0, #] &, 10^3]}, Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s]]]
    DeleteDuplicates[Table[{n,n+1-DivisorSigma[0,n]-EulerPhi[n]},{n,600}],GreaterEqual[#1 [[2]],#2 [[2]]]&][[;;,1]] (* Harvey P. Dale, Mar 29 2023 *)

Formula

a(n) = 1 + n - A000010(n) - A000005(n).
Showing 1-3 of 3 results.