MathGroup Archive 2011

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

Search the Archive

Re: How to force integers


  Artur wrote:
> Table[(7/10 - (6/5)*(-1)^
>         n*(1/2)*(f^(15*(2 n - 1)) - (1/f)^(15 (2 n - 1))) + (1/
>          20)*(f^(30 (2 n - 1)) + (1/f)^(30 (2 n - 1)))) /.
>     f ->  GoldenRatio, {n, 1, 10}]
>
> Is possible to force integers without use Round or Floor of numeric values?

f1 = 1/(1/2 (Sqrt[5] + 1)) // FullSimplify
Table[(7/10 - (6/5)*(-1)^
        n*(1/2)*(f^(15*(2 n - 1)) - (1/f)^(15 (2 n - 1))) + (1/
         20)*(f^(30 (2 n - 1)) + (1/f)^(30 (2 n - 1)))) /. {1/f -> f1,
     f -> 1/2 (Sqrt[5] + 1), n -> i} // Expand, {i, 1, 100}]

Out = {93844, 322001299796379844, .......      , 22655....793844}

-- 
  Costa



  • Prev by Date: Numerical Integration of Improper Integral
  • Next by Date: Re: x and y plot finding maximum
  • Previous by thread: Re: How to force integers
  • Next by thread: Re: How to force integers