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
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 02 2002
STATUS
approved