Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

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

Search the Archive

SuperPrimes

  • To: mathgroup at christensen.cybernetics.net
  • Subject: [mg622] SuperPrimes
  • From: Don Piele <piele at cs.uwp.edu>
  • Date: Thu, 30 Mar 1995 23:04:43 -0600 (CST)


I invite your input on a short little problem called: 

                  SUPERPRIME RIB

Butchering Farmer John's cows always yields the best prime rib.  You can 
tell prime ribs by looking at the digits lovingly stamped across them, 
one by one, by FJ and the USDA.  Farmer John ensures that a purchaser of 
his prime ribs gets really prime ribs because when sliced from the right, 
the numbers on the ribs continue to stay prime right down to the last 
rib, e.g.:

     7 3 3 1

The set of ribs 7331 is prime; the three ribs 733 are prime; the two ribs 
73 are prime, and, of course, the last rib, 7, is prime.  The number 7331 
is called a superprime of length 4.

Create a funciton superPrime[N] that accepts a number N of ribs and 
prints all the superprimes of that length.  

In[1]	superPrime[4]
	
Out[1]	{2333, 2339, 2393, 2399, 2579, 2939, 3119, 3137, 3733, 3739, 
         3793, 3797, 5939, 7193, 7331, 7333, 7393} 

The faster the solution the better.

Got a  Mathematica Pearl?

D. Piele




  • Prev by Date: X Front End for OSF/1 on DEC 3000/400, Mma V2.2.4 (fwd)
  • Next by Date: LogLinear Plot
  • Previous by thread: X Front End for OSF/1 on DEC 3000/400, Mma V2.2.4 (fwd)
  • Next by thread: Re: SuperPrimes