Encuentra poderes de 2 en una lista Prolog

Estoy tratando de crear una lista en Prolog (SWI Prolog) y compruebo qué números son potencias de 2 y segundo encuentra cuántas veces hay un número específic...