OFFSET
1,1
COMMENTS
Powers k^m, m > 1, where k is in A386433.
Powers k^m, m > 1, where k is an Achilles number such that A006530(k) < A053669(k), but is not a product of primorials.
Numbers N in A369420 whose exponents m of prime power factors prime(i)^m | N are such that m is not nondecreasing as prime index i increases.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
n a(n)
------------------------------------------
1 11664 = 108^2 2^4 * 3^6
2 419904 = 648^2 2^6 * 3^8
3 944784 = 972^2 2^4 * 3^10
4 1259712 = 108^3 2^6 * 3^9
5 3779136 = 1944^2 2^6 * 3^10
6 7290000 = 2700^2 2^4 * 3^6 * 5^4
7 15116544 = 3888^2 2^8 * 3^10
8 20250000 = 4500^2 2^4 * 3^4 * 5^6
9 76527504 = 8748^2 2^4 * 3^14
10 81000000 = 9000^2 2^6 * 3^4 * 5^6
11 136048896 = 108^4 2^8 * 3^12
12 182250000 = 13500^2 2^4 * 3^6 * 5^6
MATHEMATICA
nn = 2^32; mm = Sqrt[nn]; i = 1; k = 2; fQ[x_] := And[#[[1, 1]] == 2, Length[#] > 1, Union@ Differences@ Map[PrimePi, #[[;; , 1]]] == {1}, Apply[GCD, #[[;; , -1]]] == 1, ReverseSort@ #[[;; , -1]] != #[[;; , -1]] ] &[FactorInteger[x]]; MapIndexed[Set[S[First[#2]], #1] &, Select[Union@ Flatten@ Table[a^2*b^3, {b, Surd[mm, 3]}, {a, Sqrt[mm/b^3]}], fQ]]; Union@ Reap[While[j = 2; While[S[i]^j < nn, Sow[S[i]^j]; j++]; j > 2, k++; i++] ][[-1, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Oct 10 2025
STATUS
approved
