is(n,b)=ispseudoprime(polcyclo(n,b))
iss(n,b)=ispseudoprime(polcyclo(n,b)/gcd(polcyclo(n,b),n))
isss(n,b)=isprimepower(polcyclo(n,b))
issss(n,b)=isprimepower(polcyclo(n,b)/gcd(polcyclo(n,b),n))
c(n)=for(b=2,2^12,if(is(n,b),print1(b, ", "),if(iss(n,b),print1(b, "*, "),if(isss(n,b),print1(b, "**, "),if(issss(n,b),print1(b, "***, "))))))
d(b)=for(n=1,2^12,if(is(n,b),print1(n, ", "),if(iss(n,b),print1(n, "*, "),if(isss(n,b),print1(n, "**, "),if(issss(n,b),print1(n, "***, "))))))