Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Re: How to force integers

  • To: mathgroup at smc.vnet.net
  • Subject: [mg122982] Re: How to force integers
  • From: Costa Bravo <q13a27tt at aol.com>
  • Date: Sat, 19 Nov 2011 06:46:42 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <ja5kgb$7qa$1@smc.vnet.net>

  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