OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..3000
FORMULA
MATHEMATICA
q[n_] := Module[{f = FactorInteger[n]}, Max[f[[;; , 2]]] == f[[-1, 1]]]; Select[Range[2, 25000], q]
PROG
(PARI) is(n)={my(f = factor(n), p = f[, 1], e = f[, 2]); n > 1 && p[#p] == vecmax(e); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Feb 20 2024
STATUS
approved