[seqfan] Re: Triples of 3-digit primes using together digits 1..9.

[Harvey P. Dale]

Zak:

	I think there are 816 such triples.  This Mathematica program
will generate them in the form of 9-digit numbers.

okQ[n_] := 
 Module[{idn = FromDigits /@ Partition[IntegerDigits[n], 3]}, 
  PrimeQ[idn[[1]]] && PrimeQ[idn[[2]]] && PrimeQ[idn[[3]]]]
Select[FromDigits /@ Permutations[Range[9]], okQ]

	Best,

	Harvey

-----Original Message-----
From: seqfan-bounces at list.seqfan.eu
[mailto:seqfan-bounces at list.seqfan.eu] On Behalf Of zak seidov
Sent: Tuesday, July 06, 2010 10:24 AM
To: seqfaneu
Subject: [seqfan] Triples of 3-digit primes using together digits 1..9.

Triples of 3-digit primes, 
using together digits 1..9.
There are 136 such triples, 
from {127,463,859} to {659,743,821}.

http://zak08.livejournal.com/23029.html


      

_______________________________________________

Seqfan Mailing list - http://list.seqfan.eu/