A370493 Numbers k such that A006530(k) = A051903(k).
4, 24, 27, 54, 72, 108, 160, 216, 480, 800, 896, 1215, 1440, 2400, 2430, 2688, 3125, 4000, 4320, 4480, 4860, 6075, 6250, 6272, 7200, 8064, 9375, 9720, 12000, 12150, 12500, 12960, 13440, 15309, 18750, 18816, 19440, 20000, 21600, 22400, 22528, 24192, 24300, 25000
Offset: 1
Keywords
Examples
72 = 2^3 * 3^2 is a term since A006530(72) = A051903(72) = 3.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..3000
Programs
-
Mathematica
q[n_] := Module[{f = FactorInteger[n]}, Max[f[[;; , 2]]] == f[[-1, 1]]]; Select[Range[2, 25000], q] -
PARI
is(n)={my(f = factor(n), p = f[,1], e = f[,2]); n > 1 && p[#p] == vecmax(e);}