A110087 - OEIS

A110087

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

4, 8, 9, 14, 16, 21, 22, 25, 26, 27, 28, 32, 33, 34, 35, 38, 39, 40, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 62, 63, 64, 65, 68, 69, 72, 74, 75, 76, 77, 80, 81, 82, 85, 86, 87, 88, 91, 92, 93, 94, 95, 96, 98, 99, 100, 104, 106, 108, 111, 112, 115, 116, 117, 118

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..1000

FORMULA

A051612(a(n)) > A110088(a(n)).

MATHEMATICA

q[k_] := DivisorSigma[1, k] - EulerPhi[k] > DivisorSigma[0, k]^PrimeNu[k]; Select[Range[120], q] (* Amiram Eldar, Sep 15 2024 *)

PROG

(PARI) is(n)=sigma(n)-eulerphi(n)>numdiv(n)^omega(n) \\ Charles R Greathouse IV, Feb 19 2013

(Haskell)