/* we did a trick to construct the matrix in pari, directly, but insert the matrix here because
   is faster when TF-ing. Caution: there is a parenthesis missing, all of them have to be closed
   properly after copy/paste, when the eeror is added, see the source code above.
gp> n=60;
    for(p=1, n-1, 
        if(gcd(p,n)==1, 
            print1("if(pp== "p", v=["); 
            cnt=0; 
            for(k=1,n, 
                if(gcd(q=2*k*p+1,n)==1&&(z=q%8)!=3&&z!=5, 
                    print1(k-cnt); 
                    cnt=k; 
                    if(k<n,
                        print1(","),
                        print("],")
                    )
                )
            )
        )
    )
*/

/* same as former posts but use 420 classes, still prints k and q from time to time; uses the factor
   q instead of k, for parameters; also it eliminates the restriction of k being multiple of 420
   so any start and stop are allowed... 
use: tf_420c_s(199,2^36,2^38)   
   */
tf_420c_s(p,fromq=0,toq=2^32,logfile,maxcnt=10^6)=
{   my(cnt,ll,lq,ls,ld,lp,pp,v,fromk,tok,q);
    cnt=0;
    fromk=(ls=floor(fromq/(p<<1)))-ls%420;
    tok=(ld=ceil(toq/(p<<1)))-ld%420;
	pp=p%420;
/* NOW WE CAN PROPERLY.... PASTE the matrix :D */
    if(pp==   1, v=[8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1],
    if(pp==  11, v=[1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11],
    if(pp==  13, v=[3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4],
    if(pp==  17, v=[3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5],
    if(pp==  19, v=[5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3],
    if(pp==  23, v=[1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3],
    if(pp==  29, v=[4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5],
    if(pp==  31, v=[5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4],
    if(pp==  37, v=[3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1],
    if(pp==  41, v=[3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5],
    if(pp==  43, v=[5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3],
    if(pp==  47, v=[4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3],
    if(pp==  53, v=[3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5],
    if(pp==  59, v=[4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3],
    if(pp==  61, v=[3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1],
    if(pp==  67, v=[5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3],
    if(pp==  71, v=[1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12],
    if(pp==  73, v=[3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4],
    if(pp==  79, v=[9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3],
    if(pp==  83, v=[1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8],
    if(pp==  89, v=[4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8],
    if(pp==  97, v=[3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1],
    if(pp== 101, v=[3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5],
    if(pp== 103, v=[5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3],
    if(pp== 107, v=[4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3],
    if(pp== 109, v=[11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4],
    if(pp== 113, v=[7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5],
    if(pp== 121, v=[3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1],
    if(pp== 127, v=[5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3],
    if(pp== 131, v=[1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11],
    if(pp== 137, v=[3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5],
    if(pp== 139, v=[5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4],
    if(pp== 143, v=[12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3],
    if(pp== 149, v=[4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5],
    if(pp== 151, v=[5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4],
    if(pp== 157, v=[3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1],
    if(pp== 163, v=[8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3],
    if(pp== 167, v=[9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8],
    if(pp== 169, v=[11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1],
    if(pp== 173, v=[3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8],
    if(pp== 179, v=[1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3],
    if(pp== 181, v=[3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1],
    if(pp== 187, v=[5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3],
    if(pp== 191, v=[1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11],
    if(pp== 193, v=[3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4],
    if(pp== 197, v=[4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5],
    if(pp== 199, v=[5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3],
    if(pp== 209, v=[7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5],
    if(pp== 211, v=[5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7],
    if(pp== 221, v=[3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5],
    if(pp== 223, v=[5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4],
    if(pp== 227, v=[4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3],
    if(pp== 229, v=[11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1],
    if(pp== 233, v=[3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5],
    if(pp== 239, v=[1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3],
    if(pp== 241, v=[3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1],
    if(pp== 247, v=[8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3],
    if(pp== 251, v=[1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11],
    if(pp== 253, v=[8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9],
    if(pp== 257, v=[3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8],
    if(pp== 263, v=[1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3],
    if(pp== 269, v=[4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5],
    if(pp== 271, v=[5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4],
    if(pp== 277, v=[3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12],
    if(pp== 281, v=[4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5],
    if(pp== 283, v=[5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3],
    if(pp== 289, v=[11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1],
    if(pp== 293, v=[3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5],
    if(pp== 299, v=[1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3],
    if(pp== 307, v=[5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7],
    if(pp== 311, v=[4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11],
    if(pp== 313, v=[3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4],
    if(pp== 317, v=[3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5],
    if(pp== 319, v=[5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3],
    if(pp== 323, v=[1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3],
    if(pp== 331, v=[8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4],
    if(pp== 337, v=[8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1],
    if(pp== 341, v=[3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9],
    if(pp== 347, v=[4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3],
    if(pp== 349, v=[12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1],
    if(pp== 353, v=[3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5],
    if(pp== 359, v=[1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3],
    if(pp== 361, v=[3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4],
    if(pp== 367, v=[5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3],
    if(pp== 373, v=[3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4],
    if(pp== 377, v=[3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5],
    if(pp== 379, v=[5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3],
    if(pp== 383, v=[1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3],
    if(pp== 389, v=[4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5],
    if(pp== 391, v=[5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4],
    if(pp== 397, v=[3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1],
    if(pp== 401, v=[3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5],
    if(pp== 403, v=[5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3],
    if(pp== 407, v=[4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3],
    if(pp== 409, v=[11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8,1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1],
    if(pp== 419, v=[1,8,3,4,5,3,12,1,3,5,4,3,5,4,3,5,3,4,8,1,11,1,3,5,7,5,3,1,3,5,3,4,5,4,11,1,3,9,8,3,1,3,5,3,4,5,3,1,11,1,3,5,4,3,5,3,1,3,8,9,3,1,11,4,5,4,3,5,3,1,3,5,7,5,3,1,11,1,8,4,3,5,3,4,5,3,4,5,3,1,12,3,5,4,3,8],
	error("p should better be a prime")))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
	forstep(k=fromk, tok, v, 
        q=(k*p)<<1+1; 
        if(Mod(2,q)^p==1, 
            if(q>1,
                print("M"p" has a factor: "q"                                                                      ");
                if(logfile,
                    write(logfile,p","q)
                );
                return(q);
            )
        );
		if((cnt++)>maxcnt,
            cnt=0;
            lq=log(q);
            ll=floor(lq/log(10))+1;
            ls=floor(lq/log(2));
            ld=ls+1;
            lp=100*(q-(1<<ls))/(1<<ls);
            printf("... p=%d, k=%d, q=%d (%d digits, %4.2f%% of 2^%d to 2^%d so far) ...%c",p,k,q,ll,lp,ls,ld,13)
        )
    );
}