MathGroup Archive 2006

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

Search the Archive

Re: Friedman Number


zeta wrote:
> Hi,
> 
> How progamming Friedman Number in Mathematica-Code
> 
> 
> Many Thanks
> Zeta
> 

[ Note: This is the 2nd attempt to post this reply to Mathgroup. ]


I followed the algorithm [1] for b == 10 and 2-digit numbers. I leave it 
to you to clean the code, catch some possible division by zero, and to 
extend the program to 3-digit numbers and above.

In[1]:=
values = Range[-1, 10];
pairs = DeleteCases[Flatten[Outer[List, values,
       values], 1], {0, _}];
possibles = Select[pairs,
     10*#1[[1]] + #1[[2]] == #1[[1]]*#1[[2]] ||
       10*#1[[1]] + #1[[2]] == #1[[1]]^#1[[2]] ||
       10*#1[[1]] + #1[[2]] == #1[[2]]^#1[[1]] & ];
Cases[possibles, {_?Positive, x_ /; x >= 0}];
ToExpression /@ StringJoin /@ Map[ToString, %, {-1}]

Out[5]=
{25}

Regards,
Jean-Marc

1. http://en.wikipedia.org/wiki/Friedman_number


  • Prev by Date: Re: 1`2 == 1*^-10
  • Next by Date: Re: pattern matching: rules that stop other rules?
  • Previous by thread: Re: Friedman Number
  • Next by thread: Version 5.2 Pi computation speed is simply amazing.