OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
EXAMPLE
216 = 4 * 6 * 9.
MAPLE
q:= n-> (l-> l=[3$2] or nops(l)>2 and add(i, i=l)=6)(ifactors(n)[2][..., 2]):
select(q, [$1..2000])[]; # Alois P. Heinz, Aug 12 2025
MATHEMATICA
Select[Range@ 2000, MemberQ[{{3, 3}, {1, 1, 4}, {1, 2, 3}, {2, 2, 2}, {1, 1, 1, 3}, {1, 1, 2, 2}, {1, 1, 1, 1, 2}, {1, 1, 1, 1, 1, 1}}, Sort[Last /@ FactorInteger@ #]] &] (* Giovanni Resta, Aug 12 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ian Hahus, Aug 11 2025
STATUS
approved
