login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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?

10^12 < a(26) <= 50353622409090. - Giovanni Resta, Aug 18 2017

LINKS

Table of n, a(n) for n=1..25.

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);

a(n) = {my(k = 1); while (n*eulerphi(k) != a001615(k), k++); k; } \\ Altug Alkan, Aug 17 2017, after Charles R Greathouse IV at A001615

CROSSREFS

Cf. A000010, A001615, A055234.

Sequence in context: A214885 A145747 A055234 * A204990 A086485 A068310

Adjacent sequences:  A291048 A291049 A291050 * A291052 A291053 A291054

KEYWORD

nonn

AUTHOR

Altug Alkan, Aug 17 2017

EXTENSIONS

a(23)-a(25) from Giovanni Resta, Aug 18 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 21 00:17 EDT 2019. Contains 327252 sequences. (Running on oeis4.)