OFFSET
1,1
COMMENTS
The old entry with this sequence number was a duplicate of A056594.
The largest exponent of the prime factors of n is prime. - Harvey P. Dale, Mar 09 2012
The asymptotic density of this sequence is Sum_{p prime} (1/zeta(p+1) - 1/zeta(p)) = 0.3391101054... - Amiram Eldar, Oct 18 2020
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[200], PrimeQ[Max[Transpose[FactorInteger[#]][[2]]]]&] (* Harvey P. Dale, Mar 09 2012 *)
PROG
(PARI) isA074661(n) = if(n<4, 0, isprime(vecmax(factor(n)[, 2])))
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Sep 18 2008
STATUS
approved