[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),
Maximilian
More information about the SeqFan
mailing list