A091439 Least k such that k/phi(k) >= n, where phi is Euler's totient function.

1, 2, 6, 210, 30030, 223092870, 13082761331670030, 3217644767340672907899084554130, 1492182350939279320058875736615841068547583863326864530410, 16516447045902521732188973253623425320896207954043566485360902980990824644545340710198976591011245999110

Offset: 1

Author

T. D. Noe, Jan 09 2004

Keywords

• easy
• nonn

Links

• Max Alekseyev, Table of n, a(n) for n = 1..15
• Eric Weisstein's World of Mathematics, Totient Function

Crossrefs

Subsequence of A002110.

Cf. A091456 (n * phi(k) < k), A256968, A266269, A266276.

Programs

Mathematica

Table[prod=1; i=0; While[prod
				

PARI

a(n) = my(p=1, i=0); while(pMichel Marcus, Oct 07 2019

Formula

a(n) = A002110(A256968(n)). - Michel Marcus, Oct 07 2019