OFFSET
1,4
COMMENTS
Listed terms are = 1 or are primes.
a(n) = 1 iff n = 1 or n is prime. - Bernard Schott, Apr 10 2020
PROG
(PARI) a(n)=if(n<0, 0, my(s=1); while(prime(s)<s*numdiv(s*n), s++); s)
(PARI) a(n)= my(k=1, p=2); while(p<k*numdiv(k*n), k++; p=nextprime(p+1)); k; \\ Michel Marcus, Apr 05 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Sep 08 2002
EXTENSIONS
More terms from Jinyuan Wang, Apr 05 2020
Name corrected by Bernard Schott, Apr 10 2020
STATUS
approved