|
%I #9 Jan 21 2014 16:48:01
%S 0,0,2,6,13,25,47,92,184,367,721,1416,2769,5407,10662,21135,41866,
%T 83220,166617,334852,670725,1334868,2650263,5280475,10567613,21145411,
%U 42103939,83382359,164843079,326791838,650995628,1301718424,2605360702,5205671338,10369588530
%N Number of subsets of {1,2,...,n} whose sum is semiprime (cf. A001358, A064911).
%H Alois P. Heinz, <a href="/A181522/b181522.txt">Table of n, a(n) for n = 1..400</a>
%e a(4) = #{{1,3}, {4}, {1,2,3}, {2,4}, {2,3,4}, {1,2,3,4}} = 6.
%o (Haskell)
%o import Data.List (subsequences)
%o a181522 = length . filter ((== 1) . a064911 . sum) .
%o subsequences . enumFromTo 1
%o -- _Reinhard Zumkeller_, Feb 22 2012, Oct 27 2010
%Y Cf. A127542, A126024.
%Y Cf. A064911.
%K nonn
%O 1,3
%A _Reinhard Zumkeller_, Oct 27 2010
|
