<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="MS Exchange Server version 6.5.7226.0">
<TITLE>Re: Divisors concatenated shape a prime</TITLE>
</HEAD>
<BODY>
<DIV id=idOWAReplyText5947 dir=ltr>
<DIV dir=ltr><FONT face="Courier New" color=#000000 size=2></FONT> </DIV>
<DIV dir=ltr><FONT face="Courier New" color=#000000 size=2>Geee, Simon
!</FONT></DIV>
<DIV dir=ltr><FONT face="Courier New" size=2>Simple routine but... great result
! Waow !</FONT></DIV>
<DIV dir=ltr><FONT face="Courier New" size=2>Thanks to you and everyone -- this
list is a must ;-)</FONT></DIV>
<DIV dir=ltr><FONT face="Courier New" size=2>Best,</FONT></DIV>
<DIV dir=ltr><FONT face="Courier New" size=2>É.</FONT></DIV>
<DIV dir=ltr><FONT face="Courier New" size=2></FONT> </DIV>
<DIV dir=ltr><FONT face="Courier New" size=2></FONT> </DIV></DIV>
<DIV dir=ltr><BR><FONT face="Courier New" size=2>
<HR tabIndex=-1>
</FONT><FONT face="Courier New"><FONT size=2><B>De:</B> Simon Plouffe
[mailto:simon.plouffe@gmail.com]<BR><B>Date:</B> jeu. 19/07/2007
22:54<BR><B>À:</B> Eric Angelini<BR><B>Cc:</B> seqfan@ext.jussieu.fr<BR><B>Objet
:</B> Re: Divisors concatenated shape a prime<BR><BR></FONT></FONT></DIV>
<DIV>
<P><FONT face="Courier New" size=2>hello I made<BR>this simple maple routine
:<BR>###############################<BR>with(numtheory):<BR><BR>for k from 5 to
1e99 do:<BR>v0:=divisors(k):<BR><BR>nn:=nops(v0):<BR>if nn > 3
then<BR>v1:=[seq(v0[j],j=2..nn-1)]:<BR>v2:=cat(seq(convert(v1[n],string),n=1..nops(v1))):<BR>v3:=parse(v2):<BR>if
isprime(v3) = true then lprint(k,v3)
fi:<BR>fi:<BR>od:<BR>#################################<BR><BR>and here is some
output from it<BR>(see the
attachement)<BR>#################################<BR><BR>Simon
plouffe<BR></FONT></P></DIV>
</BODY>
</HTML>