[seqfan] Re: Most efficient way to construct a list of pandigital palindromic numbers?

Maximilian Hasler maximilian.hasler at gmail.com
Tue Dec 8 04:28:48 CET 2009

On Mon, Dec 7, 2009 at 11:22 PM, Maximilian Hasler  wrote:

> {n=1023333333333333201;p=vector(6,i,10^i+(i<6)*10^(12-i))~*10^3;
> a=[];for(k=0,6!,ispseudoprime(n+numtoperm(6,k)*p)
> & a=concat(a,n+numtoperm(6,k)*p,", ")); vecsort(a)}

but the:   ,", "
should not be there... once again:

{n=1023333333333333201; p=vector(6,i,10^i+(i<6)*10^(12-i))~*10^3;a=[];
for(k=1,6!, ispseudoprime(n+numtoperm(6,k)*p) &
a=concat(a,n+numtoperm(6,k)*p)); vecsort(a)}

should work as expected.
Sorry (as usual),

More information about the SeqFan mailing list