login
A067892
Numbers k such that tau(k)*phi(k) > prime(k) where tau(k) = A000005(k).
1
720, 864, 1008, 1080, 1120, 1260, 1296, 1440, 1512, 1584, 1680, 1728, 1760, 1800, 1872, 1980, 2016, 2080, 2160, 2240, 2304, 2376, 2400, 2448, 2464, 2520, 2592, 2640, 2688, 2700, 2720, 2736, 2772, 2800, 2808, 2835, 2880, 2912, 3024, 3080, 3120, 3168
OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..3000 from Harvey P. Dale)
MATHEMATICA
Select[Range[3200], EulerPhi[#]DivisorSigma[0, #]>Prime[#]&] (* Harvey P. Dale, Nov 17 2018 *)
PROG
(PARI) is(k) = numdiv(k) * eulerphi(k) > prime(k); \\ Amiram Eldar, Apr 17 2024
(PARI) lista(pmax) = {my(f, k = 0); forprime(p=1, pmax, k++; f = factor(k); if(numdiv(f) * eulerphi(f) > p, print1(k, ", "))); } \\ Amiram Eldar, Apr 17 2024
CROSSREFS
Cf. A000005 (tau), A000010 (phi), A062355.
Sequence in context: A056467 A056457 A068351 * A337036 A257416 A137493
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 02 2002
STATUS
approved