A135347 -id:A135347 - cp's OEIS frontend

A361966 Irregular table read by rows in which the n-th row consists of all the numbers m such that uphi(m) = n, where uphi is the unitary totient function (A047994).

1, 2, 3, 6, 4, 5, 10, 7, 12, 14, 8, 9, 15, 18, 30, 11, 22, 13, 20, 21, 26, 42, 24, 16, 17, 34, 19, 28, 38, 33, 66, 23, 46, 25, 35, 36, 39, 50, 60, 70, 78, 27, 54, 29, 40, 58, 31, 44, 48, 62, 32, 45, 51, 90, 102, 37, 52, 57, 74, 84, 114, 41, 55, 82, 110, 43, 56, 86

Offset: 1

Amiram Eldar, Apr 01 2023

			The table begins:
  n   n-th row
  --  --------
   1  1, 2;
   2  3, 6;
   3  4;
   4  5, 10;
   5
   6  7, 12, 14;
   7  8;
   8  9, 15, 18, 30;
   9
  10  11, 22;
  11
  12  13, 20, 21, 26, 42;

Amiram Eldar, Table of n, a(n) for n = 1..16006 (first 10000 rows)

The unitary version of A032447.

Cf. A047994, A135347, A162247, A361967 (row lengths), A361968, A361969, A361970, A361971.

invUPhi[n_] := Module[{fct = f[n], sol}, sol = Times @@@ (1 + Select[fct, UnsameQ @@ # && (Length[#] == 1 || CoprimeQ @@ (# + 1)) && Times @@ PrimeNu[# + 1] == 1 &]); Sort@ Join[sol, 2*Select[sol, OddQ]]]; invUPhi[1] = {1, 2}; Table[invUPhi[n], {n, 1, 50}] // Flatten (* using the function f by T. D. Noe at A162247 *)

A361967 Number of numbers k such that uphi(k) = n, where uphi is the unitary totient function (A047994).

Original entry on oeis.org

2, 2, 1, 2, 0, 3, 1, 4, 0, 2, 0, 5, 0, 1, 1, 2, 0, 3, 0, 2, 0, 2, 0, 8, 0, 2, 0, 3, 0, 4, 1, 4, 0, 0, 0, 6, 0, 0, 0, 4, 0, 3, 0, 2, 0, 2, 0, 11, 0, 0, 0, 2, 0, 1, 0, 4, 0, 2, 0, 8, 0, 1, 1, 2, 0, 3, 0, 0, 0, 3, 0, 11, 0, 0, 0, 0, 0, 3, 0, 8, 0, 2, 0, 5, 0, 0, 0

Offset: 1

Amiram Eldar, Apr 01 2023

nonn

Amiram Eldar, Table of n, a(n) for n = 1..10000

Row lengths of A361966.
The unitary version of A014197.
Cf. A047994, A135347, A327837, A347771 (positions of 0's), A361966, A361968 (indices of records), A361969 (positions of 1's), A361970, A361971 (record values).

a[n_] := Length[invUPhi[n]]; Array[a, 100] (* using the function invUPhi from A361966 *)

a(A347771(n)) = 0.
a(A361969(n)) = 1.
a(A361970(n)) = n.
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = A327837. - Amiram Eldar, Dec 24 2024

A361968 Unitary highly totient numbers: numbers k that have more solutions x to the equation uphi(x) = k than any smaller k, where uphi is the unitary totient function (A047994).

Original entry on oeis.org

1, 6, 8, 12, 24, 48, 96, 120, 144, 240, 480, 576, 720, 1440, 2880, 4320, 5760, 8640, 10080, 17280, 20160, 30240, 34560, 40320, 60480, 80640, 120960, 241920, 362880, 483840, 725760, 967680, 1209600, 1451520, 2177280, 2419200, 2903040, 3628800, 4354560, 4838400

Offset: 1

Amiram Eldar, Apr 01 2023

nonn

Indices of records of A361967.

The corresponding numbers of solutions are 2, 3, 4, 5, 8, 11, ... (A361971).

Amiram Eldar, Table of n, a(n) for n = 1..51

The unitary version of A097942.

Cf. A047994, A135347, A347771, A361966, A361967, A361969, A361970, A361971.

solnum[n_] :=  Length[invUPhi[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^5] (* using the function invUPhi from A361966 *)

A361969 Numbers k with a single solution x to the equation uphi(x) = k, where uphi is the unitary totient function (A047994).

Original entry on oeis.org

3, 7, 14, 15, 31, 54, 62, 63, 127, 154, 174, 182, 186, 234, 246, 254, 255, 294, 308, 318, 322, 364, 406, 414, 496, 510, 511, 516, 534, 558, 574, 594, 644, 666, 678, 762, 804, 806, 812, 846, 870, 948, 1022, 1023, 1026, 1036, 1074, 1098, 1146, 1148, 1164, 1204, 1246

Offset: 1

Amiram Eldar, Apr 01 2023

nonn

Numbers k such that A361967(k) = 1.
According to Carmichael's totient function conjecture, there are no numbers with a single solution x to the corresponding equation phi(x) = k, with Euler's totient function (A000010).
A000225(m) = 2^m - 1 is a term for all m >= 2. These are the only odd terms.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Wikipedia, Carmichael's totient function conjecture.

Cf. A000010, A000225, A047994, A135347, A361966, A361967, A361968, A361970, A361971.

Select[Range[1250], Length[invUPhi[#]] == 1 &] (* using the function invUPhi from A361966 *)

A347771 Unitary nontotient numbers: values not in range of unitary totient function uphi(n).

Original entry on oeis.org

5, 9, 11, 13, 17, 19, 21, 23, 25, 27, 29, 33, 34, 35, 37, 38, 39, 41, 43, 45, 47, 49, 50, 51, 53, 55, 57, 59, 61, 65, 67, 68, 69, 71, 73, 74, 75, 76, 77, 79, 81, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 98, 99, 101, 103, 105, 107, 109, 110, 111, 113, 114, 115, 117, 118, 119, 121, 122, 123, 125, 129, 131, 133, 134, 135

Offset: 1

Eric Chen, Sep 13 2021

nonn

Numbers not appearing in A047994.
Indices of -1 in A135347.
Unitary version of A007617.
This sequence to A047994 is A007617 to A000010.
This sequence to A135347 is A007617 to A049283 (for the case that no such numbers exist, A135347 uses -1 and A049283 uses 0).
All odd numbers not of the form 2^k-1 (i.e. not in A000225) are in this sequence, since uphi(n) = A047994(n) is an even number unless n is a power of 2 (A000079), in this case uphi(n) = n-1.
The intersection of this sequence and A049225 is empty, since for squarefree numbers, all divisors are unitary divisors, note that the intersection of this sequence and A002202 is not empty, the number 110 is in both sequences.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A000010, A002202, A005277, A007617, A047994, A049225, A049283, A135347, A361966, A361967.

Select[Range[135], Length[invUPhi[#]] == 0 &] (* Amiram Eldar, Apr 01 2023, using the function invUPhi from A361966 *)

A047994(n)=my(f=factor(n)~); prod(i=1, #f, f[1, i]^f[2, i]-1)
is(n)=for(k=1,n^2,if(A047994(k)==n,return(0)));1 \\ after A047994

A361967(a(n)) = 0. - Amiram Eldar, Apr 01 2023

A361970 a(n) is the least number k such that the equation uphi(x) = k has exactly n solutions, or -1 if no such k exists, where uphi is the unitary totient function (A047994).

Original entry on oeis.org

5, 1, 2, 6, 8, 12, 36, 156, 24, 552, 168, 48, 96, 420, 120, 192, 3264, 144, 384, 336, 1536, 288, 360, 240, 672, 1200, 3888, 1080, 4896, 1584, 480, 576, 7056, 4992, 864, 1872, 1152, 3120, 960, 2400, 720, 2520, 30960, 2688, 19968, 1680, 1728, 1920, 2016, 2304, 12000

Offset: 0

Amiram Eldar, Apr 01 2023

nonn

Is there any n for which a(n) = -1?

Amiram Eldar, Table of n, a(n) for n = 0..300

The unitary version of A007374.

Cf. A047994, A135347, A347771, A361966, A361967, A361968, A361969, A361971.

solnum[n_] :=  Length[invUPhi[n]]; seq[len_, kmax_] := Module[{s = Table[-1, {len}], c = 0, k = 1, ind}, While[k < kmax && c < len, ind = solnum[k] + 1; If[ind <= len && s[[ind]] < 0, c++; s[[ind]] = k]; k++]; s]; seq[50, 10^5] (* using the function invUPhi from A361966 *)

A361967(a(n)) = n.

A362212 a(n) is the unique solution to A047994(x) = A361969(n).

Original entry on oeis.org

4, 8, 24, 16, 32, 76, 96, 64, 128, 184, 236, 216, 224, 316, 332, 384, 256, 344, 552, 428, 376, 424, 472, 556, 544, 768, 512, 692, 716, 608, 664, 796, 1128, 892, 908, 896, 1076, 864, 1416, 1132, 944, 1268, 1536, 1024, 1372, 1192, 1436, 1468, 1532, 1992, 1556, 1384

Offset: 1

Amiram Eldar, Apr 11 2023

nonn

Are all the terms divisible by 4?

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A047994, A135347, A361966, A361969.

Similar sequences: A131826, A362211.

invUPhi[#][[1]]& /@ Select[Range[1250], Length[invUPhi[#]] == 1 &] (* using the function invUPhi from A361966 *)

a(n) = A135347(A361969(n)).

A047994(a(n)) = A361969(n).

cp's OEIS Frontend

A361966 Irregular table read by rows in which the n-th row consists of all the numbers m such that uphi(m) = n, where uphi is the unitary totient function (A047994).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A361967 Number of numbers k such that uphi(k) = n, where uphi is the unitary totient function (A047994).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A361968 Unitary highly totient numbers: numbers k that have more solutions x to the equation uphi(x) = k than any smaller k, where uphi is the unitary totient function (A047994).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A361969 Numbers k with a single solution x to the equation uphi(x) = k, where uphi is the unitary totient function (A047994).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A347771 Unitary nontotient numbers: values not in range of unitary totient function uphi(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A361970 a(n) is the least number k such that the equation uphi(x) = k has exactly n solutions, or -1 if no such k exists, where uphi is the unitary totient function (A047994).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A362212 a(n) is the unique solution to A047994(x) = A361969(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula