OFFSET
1,1
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
n a(n)
-------------------
1 18 = 2 * 3^2
2 20 = 2^2 * 5
3 28 = 2^2 * 7
4 40 = 2^3 * 5
5 44 = 2^2 * 11
6 45 = 3^2 * 5
7 50 = 2 * 5^2
8 52 = 2^2 * 13
9 54 = 2 * 3^3
10 56 = 2^3 * 7
11 63 = 3^2 * 7
12 68 = 2^2 * 17
MATHEMATICA
fQ[x_] := And[Nor[PrimePowerQ[x], SquareFreeQ[x]], Min[#] == 1, Times @@ MapIndexed[Prime[First[#2]]^#1 &, ReverseSort[#]] != x] &@ FactorInteger[x][[;; , -1]]; Select[Range[240], fQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Oct 11 2025
STATUS
approved
