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 24 = 2^3 * 3
2 40 = 2^3 * 5
3 48 = 2^4 * 3
4 54 = 2 * 3^3
5 56 = 2^3 * 7
6 72 = 2^3 * 3^2
7 80 = 2^4 * 5
8 88 = 2^3 * 11
9 96 = 2^5 * 3
13 120 = 2^3 * 3 * 5
14 135 = 3^3 * 5
19 168 = 2^3 * 3 * 7
MATHEMATICA
fQ[x_] := And[Length[#] > 1, AnyTrue[#, # > 2 &], GCD @@ # == 1] &@ FactorInteger[x][[;; , -1]]; Select[Range[2^10], fQ]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michael De Vlieger, Dec 13 2025
STATUS
approved
