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.

A362485 Number of numbers k such that iphi(k) = n, where iphi is the infinitary totient function A091732.

Original entry on oeis.org

2, 2, 2, 2, 0, 4, 0, 4, 0, 2, 0, 6, 0, 0, 2, 4, 0, 4, 0, 2, 0, 2, 0, 10, 0, 0, 0, 2, 0, 6, 0, 4, 0, 0, 0, 8, 0, 0, 0, 4, 0, 2, 0, 2, 2, 2, 0, 14, 0, 0, 0, 2, 0, 2, 0, 2, 0, 2, 0, 10, 0, 0, 0, 4, 0, 4, 0, 0, 0, 2, 0, 14, 0, 0, 0, 0, 0, 2, 0, 8, 0, 2, 0, 4, 0, 0
Offset: 1

Views

Author

Amiram Eldar, Apr 22 2023

Keywords

Comments

a(n) is even for all n, because if k is a solution to iphi(k) = n, and A007814(k) is even, then 2*k is also a solution, i.e., iphi(2*k) = n.

Crossrefs

Row lengths of A362484.
Cf. A007814, A091732, A362486 (positions of 0's), A362487 (indices of records).
Similar sequences: A014197, A063740, A361967, A362181.

Programs

  • Mathematica
    a[n_] := Length[invIPhi[n]]; Array[a, 100] (* using the function invIPhi from A362484 *)

Formula

a(A362486(n)) = 0.

A362487 Infinitary highly totient numbers: numbers k that have more solutions x to the equation iphi(x) = k than any smaller k, where iphi is the infinitary totient function A091732.

Original entry on oeis.org

1, 6, 12, 24, 48, 96, 144, 240, 288, 480, 576, 720, 1152, 1440, 2880, 4320, 5760, 8640, 11520, 17280, 34560, 51840, 69120, 103680, 120960, 172800, 207360, 241920, 345600, 362880, 414720, 483840, 725760, 967680, 1209600, 1451520, 1935360, 2419200, 2903040, 3628800
Offset: 1

Views

Author

Amiram Eldar, Apr 22 2023

Keywords

Comments

Indices of records of A362485.
The corresponding numbers of solutions are 2, 4, 6, 10, 14, 18, 22, ... (A362488).

Crossrefs

Programs

  • Mathematica
    solnum[n_] := Length[invIPhi[n]]; seq[kmax_] := Module[{s = {}, solmax=0}, Do[sol = solnum[k]; If[sol > solmax, solmax = sol; AppendTo[s, k]], {k, 1, kmax}]; s]; seq[10^4] (* using the function invIPhi from A362484 *)

A362666 a(n) is the largest m such that iphi(m) = n, where iphi is the infinitary totient function A091732, or a(n) = 0 if no such m exists.

Original entry on oeis.org

2, 6, 8, 10, 0, 24, 0, 30, 0, 22, 0, 42, 0, 0, 32, 54, 0, 56, 0, 66, 0, 46, 0, 120, 0, 0, 0, 58, 0, 96, 0, 102, 0, 0, 0, 168, 0, 0, 0, 110, 0, 86, 0, 138, 128, 94, 0, 216, 0, 0, 0, 106, 0, 152, 0, 174, 0, 118, 0, 264, 0, 0, 0, 270, 0, 184, 0, 0, 0, 142, 0, 312
Offset: 1

Views

Author

Amiram Eldar, Apr 29 2023

Keywords

Examples

			a(1) = 2 since there are two solutions to iphi(x) = 1: 1 and 2, and 2 is the larger of them.
a(6) = 24 since there are four solutions to iphi(x) = 6: 7, 12, 14 and 24, and 24 is the largest of them.
		

Crossrefs

The infinitary version of A057635.
Cf. A091732, A362484, A362486 (positions of 0's), A362667 (record values), A362668 (indices of records).

Programs

  • Mathematica
    a[n_] := If[(inv = invIPhi[n]) == {}, 0, Max[inv]]; Array[a, 100] (* using the function invIPhi from A362484 *)

Formula

a(A362486(n)) = 0.
Showing 1-3 of 3 results.