Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Help with "If" statement within "Table"

• To: mathgroup at smc.vnet.net
• Subject: [mg90536] Re: [mg90500] Help with "If" statement within "Table"
• From: Sseziwa Mukasa <mukasa at jeol.com>
• Date: Sat, 12 Jul 2008 05:31:49 -0400 (EDT)
• References: <200807110602.CAA03738@smc.vnet.net> <AF433FAE-AA34-4766-A834-B78AD4B87890@jeol.com> <a851af150807110720v318a2d12v729250b1380747e8@mail.gmail.com>

On Jul 11, 2008, at 10:20 AM, Diana Mecum wrote:

> SSeziwa,
>
> Thanks. Yes, I did initialize the list as follows. I padded the  
> terms with 2's, and started with the 12th term.
>
> A136164 = {0, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2}
> A136164 = PadRight[A136164, 1000, 2];
> Table[If[CoprimeQ[Divisors[n][[j]], Divisors[n][[j - 1]]] ||
>     CoprimeQ[Divisors[n][[j]], Divisors[n][[j + 1]]],
>    A136164[[n]] = A136164[[n]] + 1], {j, 3, Length[Divisors[n]] - 2}];
>
> If I execute the "If" statement outside of the table, the sequence  
> elements are updated. For example,
>
> n=12
> j=3
> If[CoprimeQ[Divisors[n][[j]], Divisors[n][[j - 1]]] ||
>   CoprimeQ[Divisors[n][[j]], Divisors[n][[j + 1]]],
>  A136164[[n]] = A136164[[n]] + 1]
>
> With this, the sequence gets updated.

n doesn't have a value in your first set of statements.  Is this part  
of a larger program?

Regards,

Ssezi

• References:
  • Help with "If" statement within "Table"
    • From: Diana <diana.mecum@gmail.com>