On Tue, 11 Nov 2003, saad bedaiwi (sb) wrote:

sb> Dear GAP-Forum,
sb>
sb> Let L be a list of integers, is there a way to test whether each member of L
sb> is a power of a
sb> specific prime, it seems that the command "IsPrimePowerInt" do
sb> that but for an arbitrary prime

Dear GAP forum,
Dear Saad,

this is probably not the most efficient way, but at least it is short:

gap> list := [3,9,81,2];
[ 3, 9, 81, 2 ]
gap> Length(Collected(List( list, PrimePowersInt ){[1..Length(list)]}[1])) = 1 ;
false
gap> list := [3,9,81];
[ 3, 9, 81 ]
gap> Length(Collected(List( list, PrimePowersInt ){[1..Length(list)]}[1])) = 1 ;
true
gap>

best regards,

        Sergei
-- 
--------------------------------------------------------------------  -?)
         eMail:       Sergei.Haller@math.uni-giessen.de               /\\
-------------------------------------------------------------------- _\_V
Be careful of reading health books, you might die of a misprint.
                -- Mark Twain