OFFSET
1,2
COMMENTS
Each k/x_i must be an integer. - Harvey P. Dale, Dec 27 2018
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..350
EXAMPLE
60 is in the sequence because 60 has a partition 4+5+5+10+12+12+12 for which 60/4 + 60/5 + 60/5 + 60/10 + 60/12 + 60/12 + 60/12 = 5+5+5+6+12+12+15 is also a partition of 60.
MATHEMATICA
Partitionable[n_, x_, y_, terms_] := If[Length[terms]==0||x<0||y<0, False, If[x==0&&y==0, True, If[IntegerQ[n/First[terms]]&&Partitionable[n, x-First[terms], y-n/First[terms], terms], True, Partitionable[n, x, y, Rest[terms]]]]]; TestNum[n_] := Partitionable[n, n, n, Divisors[n]]; Select[Range[100], TestNum]
PROG
(Haskell)
a066926 n = a066926_list !! (n-1)
a066926_list = filter f [1..] where
f x = elem x $ map sum $ map (map (div x)) $ ps 1 x where
ps u 0 = [[]]
ps u v = [t:ts | t <- [u..v], t > 1, mod x t == 0, ts <- ps t (v - t)]
-- Reinhard Zumkeller, Jun 07 2015
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
David Eppstein, Jan 23 2002
EXTENSIONS
More terms from Dean Hickerson, Jan 27 2002
STATUS
approved