A348003
Indices k of records of low value of the ratios A348001(k)/A034444(k) between the number of distinct values of the unitary totient function applied to the unitary divisors of k and the number of unitary divisors of k.
Original entry on oeis.org
1, 2, 546, 2730, 13650, 101010, 199290, 996450, 1919190, 7373730, 28020174, 32626230, 125353410, 140100870, 700504350, 2381714790, 11908573950, 15270994830
Offset: 1
-
f[p_, e_] := p^e - 1; uphi[1] = 1; uphi[n_] := Times @@ f @@@ FactorInteger[n]; r[n_] := Length @ Union[uphi /@ (d = Select[Divisors[n], CoprimeQ[#, n/#] &])]/Length[d]; rm = 2; seq = {}; Do[r1 = r[n]; If[r1 < rm, rm = r1; AppendTo[seq, n]], {n, 1, 10^5}]; seq
A348200
Terms of A348004 having more unitary divisors than any smaller term.
Original entry on oeis.org
1, 3, 12, 60, 660, 9240, 157080, 2984520, 68643960, 3226266120
Offset: 1
The sequence A348004 begins with 1, 3, 4, 5, 7, 8, 9, 11 and 12. The number of unitary divisors of these terms are 1, 2, 2, 2, 2, 2, 2, 2 and 4, respectively. The record values, 1, 2 and 4, occur at 1, 3 and 12, the first 3 terms of this sequence.
-
f[p_, e_] := p^e - 1; uphi[1] = 1; uphi[n_] := Times @@ f @@@ FactorInteger[n]; q[n_] := Length @ Union[uphi /@ (d = Select[Divisors[n], CoprimeQ[#, n/#] &])] == Length[d]; dm = 0; s = {}; Do[If[q[n], d = 2^PrimeNu[n]; If[d > dm, dm = d; AppendTo[s, n]]], {n, 1, 10^6}]; s
Showing 1-2 of 2 results.
Comments