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