OFFSET
1,1
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
Table of n, a(n) for select n:
n a(n)
----------------------------
1 108 = 2^2 * 3^3
2 200 = 2^3 * 5^2
3 392 = 2^3 * 7^2
4 500 = 2^2 * 5^3
5 648 = 2^3 * 3^4
6 675 = 3^3 * 5^2
7 800 = 2^5 * 5^2
8 968 = 2^3 * 11^2
9 972 = 2^2 * 3^5
10 1125 = 3^2 * 5^3
18 2700 = 2^2 * 3^3 * 5^2
23 3528 = 2^3 * 3^2 * 7^2
MATHEMATICA
nn = 9000; Rest@ Select[Union@ Flatten@ Table[a^2*b^3, {b, Surd[nn, 3]}, {a, Sqrt[nn/b^3]}], And[GCD @@ #2 == 1, Times @@ MapIndexed[Prime[First[#2]]^#1 &, ReverseSort[#2]] != #1] & @@ {#, FactorInteger[#][[;; , -1]]} &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Oct 12 2025
STATUS
approved
