|
Search: id:A073118
|
|
|
| A073118 |
|
Sum of prime parts in all partitions of n. |
|
+0
1
|
|
| 0, 2, 5, 9, 19, 33, 57, 87, 136, 206, 311, 446, 650, 914, 1284, 1762, 2432, 3276, 4433, 5888, 7824, 10272, 13479, 17471, 22642, 29087, 37283, 47453, 60306, 76112, 95931, 120201, 150338, 187141, 232507, 287591, 355143, 436849, 536347, 656282, 801647
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
a(n) = Sum_{k=1..n} A008472(k)*A000041(n-k).
|
|
MATHEMATICA
|
Needs["DiscreteMath`Combinatorica`"]; f[n_] := Apply[Plus, Select[ Flatten[ Partitions[n]], PrimeQ[ # ] & ]]; Table[ g[n], {n, 1, 41} ]
|
|
CROSSREFS
|
Cf. A037032.
Adjacent sequences: A073115 A073116 A073117 this_sequence A073119 A073120 A073121
Sequence in context: A077947 A077972 A085410 this_sequence A048082 A089089 A014495
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Vladeta Jovovic (vladeta(AT)Eunet.yu), Aug 24 2002
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 26 2002
|
|
|
Search completed in 0.002 seconds
|
