|
|
A291051
|
|
a(n) is the smallest number k such that psi(k) = n*phi(k) where psi(k) is Dedekind psi function (A001615) and phi(k) is Euler totient function (A000010), or 0 if no such k exists.
|
|
1
|
|
|
1, 3, 2, 14, 190, 6, 78, 42, 30, 570, 16770, 210, 1102290, 2730, 67830, 43890, 133707210, 746130, 27606810, 16546530, 9699690, 417086670, 3828438543930, 8720021310, 705196562070
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Also a(n) is the smallest squarefree number k such that sigma(k) = n*phi(k), or 0 if no such k exists.
It is conjectured that A055234(n) > 0 for each n. Is a(n) > 0 for all values of n?
|
|
LINKS
|
|
|
EXAMPLE
|
a(4) = 14 since psi(14) / phi(14) = 24 / 6 = 4 and 14 is the least number with this property.
|
|
MATHEMATICA
|
psi[n_] := n*Sum[MoebiusMu[d]^2/d, {d, Divisors@n}]; f[n_] := Block[{k = 1}, While[ n*EulerPhi[k] != psi[k], k++]; k]; Array[f, 22] (* Robert G. Wilson v, Sep 15 2017 *)
|
|
PROG
|
(PARI) a001615(n) = n*sumdivmult(n, d, issquarefree(d)/d);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|