%I #18 Feb 21 2023 16:05:06

%S 1,2,4,14,28,94,218,588,1366,3618,8134,20320,45592,105810,236960,

%T 539392,1174530,2612436,5628606,12226350,26130568,55938126,117997774,

%U 249680514,523032956,1094500962,2275886514,4727461792,9762182762,20148991512,41403646304,84961079990

%N Sum of all prime encoded complete partitions of n.

%H Alois P. Heinz, <a href="/A360791/b360791.txt">Table of n, a(n) for n = 0..3316</a>

%F a(n) = Sum_{k=1..A126796(n)} A258118(n,k).

%p b:= proc(n, i) option remember; `if`(i<2, 2^n, `if`(n<2*i-1,

%p b(n, iquo(n+1, 2)), b(n, i-1)+b(n-i, i)*ithprime(i)))

%p end:

%p a:= n-> b(n, iquo(n+1, 2)):

%p seq(a(n), n=0..32);

%Y Row sums of A258118.

%Y Cf. A126796, A215366, A360713.

%K nonn

%O 0,2

%A _Alois P. Heinz_, Feb 21 2023