Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Prime Puzzle with Mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg92705] Re: Prime Puzzle with Mathematica
  • From: Peter Pein <petsie at dordos.net>
  • Date: Sat, 11 Oct 2008 06:42:39 -0400 (EDT)
  • References: <gcn48r$74t$1@smc.vnet.net>

amzoti schrieb:
> Hi All,
> 
> trying to find an efficient way to this in Mathematica.
> 
> I found the answer - but it was a manual list manipulation - and it
> was ugly!
> 
> Any suggestions?
> 
> 3 Nice Primes:
> 
> Find three 2-digit prime numbers such that:
> 
>     * The average of any two of the three is a prime number, and
>     * The average of all three is also a prime number
> 
> Thanks!
> 
> ~A
> 

Do you think of sth. like

In[1]:= Select[Subsets[Prime[Range[PrimePi[10] + 1, PrimePi[99]]], {3}],
  And @@ PrimeQ /@ Mean /@ Subsets[#1, {2, 3}] & ]
Out[1]= {{11, 47, 71}}

?
Look for "Function" and "Select" in the documentation.

Peter


  • Prev by Date: Re: Color coding a Table entry
  • Next by Date: Re: Prime Puzzle with Mathematica
  • Previous by thread: Re: Prime Puzzle with Mathematica
  • Next by thread: Re: Prime Puzzle with Mathematica