みなさま、ご指導ありがとうございます。

悪戦苦闘しましたが、いちおうこんな感じでできました

counta(L,N) :- findall(a,member(a,L),La), length(La,N).