OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[250], Max[Power @@@ (f = FactorInteger[#])] > f[[-1, 1]] &] (* Amiram Eldar, May 23 2024 *)
PROG
(PARI) is(n)=my(f=factor(n), k=#f[, 1]); for(i=1, k, if(f[i, 1]^f[i, 2]>f[k, 1], return(1))); 0 \\ Charles R Greathouse IV, Sep 20 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Douglas Stones (dssto1(AT)student.monash.edu.au), Aug 22 2006
EXTENSIONS
Extended by Ray Chandler, Aug 23 2006
STATUS
approved