Prime Puzzle with Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg92680] Prime Puzzle with Mathematica*From*: amzoti <amzoti at gmail.com>*Date*: Fri, 10 Oct 2008 04:35:23 -0400 (EDT)

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

**Follow-Ups**:**Re: Prime Puzzle with Mathematica***From:*Andrzej Kozlowski <akoz@mimuw.edu.pl>

**RE: Prime Puzzle with Mathematica***From:*"Tony Harker" <a.harker@ucl.ac.uk>

**RE: Prime Puzzle with Mathematica***From:*"Harvey P. Dale" <hpd1@nyu.edu>