Corrected On sequence nXn where x equal 09,18,27,36,45,54,63,72,81,90

[Meeussen Wouter (bkarnd)]

Karima , please send plain text


the concatenations n09n, n18n ... do not form 
	"ten numbers in arithmetic progression"
or am I grossly overlooking something again?

In[]:=Select[-1 + 6*Range[100000], 
  And @@ PrimeQ[ToExpression[StringReplace[test, "n" -> ToString[#]]]]
&]
Out[]={}

In[40]:=Select[+1 + 6*Range[100000], 
  And @@ PrimeQ[ToExpression[StringReplace[test, "n" -> ToString[#]]]]
&]
Out[]={}

again, nothing.

W.

-----Original Message-----
From: Ed Pegg Jr [mailto:edp at wolfram.com]
Sent: maandag 23 februari 2004 18:41
To: Meeussen Wouter (bkarnd)
Cc: bouyao at wanadoo.fr; seqfan at ext.jussieu.fr
Subject: Re: Corrected On sequence nXn where x equal
09,18,27,36,45,54,63,72,81,90


These are ten numbers in arithmetic progression.

At least one of these numbers will be divisible by 7.

--Ed Pegg Jr



===============================
This email is confidential and intended solely for the use of the individual to whom it is addressed. 
If you are not the intended recipient, be advised that you have received this email in error and that any use, dissemination, forwarding, printing, or copying of this email is strictly prohibited.
You are explicitly requested to notify the sender of this email that the intended recipient was not reached.