A110086 Numbers n such that sigma(n) - phi(n) <= tau(n)^omega(n), where sigma=A000203, phi=A000010, tau=A000005 and omega=A001221.

1, 2, 3, 5, 6, 7, 10, 11, 12, 13, 15, 17, 18, 19, 20, 23, 24, 29, 30, 31, 36, 37, 41, 42, 43, 47, 53, 59, 60, 61, 66, 67, 70, 71, 73, 78, 79, 83, 84, 89, 90, 97, 101, 102, 103, 105, 107, 109, 110, 113, 114, 120, 126, 127, 130, 131, 132, 137, 138, 139, 140, 149, 150, 151

Offset

1,2

Comments

A051612(a(n)) <= A110088(a(n)); union of A000040 and A110085, complement of A110086.

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Prog

(PARI) is(n)=sigma(n)-eulerphi(n)<=numdiv(n)^omega(n) \\ Charles R Greathouse IV, Feb 14 2013
(Haskell)
a110086 n = a110086_list !! (n-1)
a110086_list = filter (\x -> a051612 x <= a110088 x) [1..]
-- Reinhard Zumkeller, Aug 05 2014

Crossrefs

Cf. A240960 (subsequence).

Sequence in context: A004762 A061854 A214432 * A107746 A024899 A114518

Adjacent sequences: A110083 A110084 A110085 * A110087 A110088 A110089

Keyword

nonn

Author

Reinhard Zumkeller, Jul 11 2005

Status

approved