%I #15 Jun 22 2021 20:02:47
%S 1,0,0,1,0,0,2,0,0,3,0,0,5,0,0,7,0,0,11,0,0,15,0,0,22,0,0,30,0,0,42,0,
%T 0,56,0,0,77,0,0,101,0,0,135,0,0,176,0,0,231,0,0,297,0,0,385,0,0,490,
%U 0,0,627,0,0,792,0,0,1002,0,0,1255,0,0,1575,0,0,1958,0,0,2436,0,0,3010
%N Number of partitions of n into parts 6k or 6k+3.
%C Euler transform of period 3 sequence [ 0, 0, 1, ...]. - _Kevin T. Acres_, Apr 28 2018
%F a(3*n) = A000041(n). a(3*n + 1) = a(3*n + 2) = 0. - _Michael Somos_, Jun 02 2012
%p a:= n-> `if`(irem(n, 3)=0, combinat[numbpart](n/3), 0):
%p seq(a(n), n=0..84); # _Alois P. Heinz_, Jun 22 2021
%Y Cf. A000041.
%K nonn
%O 0,7
%A _Olivier GĂ©rard_