|
|
A175592
|
|
Numbers n whose prime factors can be partitioned into two disjoint sets whose sums are both (sum of primes dividing n (with repetition))/2.
|
|
3
|
|
|
4, 9, 16, 25, 30, 36, 49, 64, 70, 72, 81, 84, 100, 120, 121, 144, 169, 196, 225, 240, 256, 270, 280, 286, 288, 289, 308, 324, 336, 361, 378, 400, 440, 441, 480, 484, 495, 525, 528, 529, 540, 576, 594, 625, 630, 646, 648, 672, 676, 728, 729, 750, 756, 784
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
a(1)=4 because 4=2*2 and 2=2, a(2)=9 because 9=3*3 and 3=3, a(3)=16 because 16=2*2*2*2 and 2+2=2+2, a(4)=25 because 25=5*5 and 5=5, a(5)=30 because 30=2*3*5 and 2+3=5.
|
|
PROG
|
(Haskell)
a175592 n = a175592_list !! (n-1)
a175592_list = filter (z 0 0 . a027746_row) $ [1..] where
z u v [] = u == v
z u v (p:ps) = z (u + p) v ps || z u (v + p) ps
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|