Harmonic

User login

Posted on 2008-10-12 15:30 By tapatia00 (2)

Categories:

Math Advice (Student)

<p>Hi, I need help.</p>
<div style="margin: 0in 0in 0pt"><span style="color: black">I need to write a program that, for input integer n > 0, output the row vector [k<sub>1</sub>,k<sub>2</sub> . . . , k<sub>n</sub>].</span></div>
<div style="margin: 0in 0in 0pt"><span style="color: black">For example, when input n = 8, the output is [1, 4, 11, 31, 83, 227, 616, 1674].</span></div>
<div style="margin: 0in 0in 0pt"> </div>
<div style="margin: 0in 0in 0pt"> This is what I have:</div>
<pre>
harmonic1 := proc ( n )<br />   local s, h, k, j;

   h := LinearAlgebra[Dimension](x);<br />   s := 0;

<br />   for k from 1 to h do      <br />      while n > 0 do<br /><br />         s := s + 1/j[K];     <br />      end do;
   end do;

<br />   return s;
end proc;</pre>
<pre>
 </pre>
<p>But is not woking.</p>
<p>Can some one help me please</p>
<p>Thanks ^_^</p>

Hi, I need help. I need to

Comment on 2008-10-12 15:30 from tapatia00 (2)

Hi, I need help.

I need to write a program that, for input integer n > 0, output the row vector [k₁,k₂ . . . , k_n].
For example, when input n = 8, the output is [1, 4, 11, 31, 83, 227, 616, 1674].

This is what I have:

harmonic1 := proc ( n )
   local s, h, k, j;

   h := LinearAlgebra[Dimension](x);
   s := 0;


   for k from 1 to h do      
      while n > 0 do

         s := s + 1/j[K];     
      end do;
   end do;


   return s;
end proc;

But is not woking.

Can some one help me please

Thanks ^_^

one approach

Comment on 2008-10-12 15:49 from Joe Riel ( Maple Rating 4

1248)

The real challenge is making this reasonably fast. Here is my first attempt, not particularly fast. This isn't the nicest approach, from a pedagogical viewpoint.

Harmonic := module()
export ModuleApply;
local nmax;
    nmax := 1;
    ModuleApply := proc(n::posint)
    option remember;
    local k;
        procname(nmax) + add(1/k,k=nmax+1..n);
    end proc;
    ModuleApply(1) := 1;
end module:

A := proc(n::posint)
local k;
    for k while Harmonic(k) < n do end do;
    return k;
end proc:

harmonic1 := proc(n)
    Vector['row'](n, A);
end proc:

harmonic1(3);
                  [1, 4, 11]

What are you trying to do?

Comment on 2008-10-12 15:48 from Robert Israel ( Maple Rating 4

1429)

The first thing you have to do is tell us what you're trying to do. What are k₁, k₂, ..., k_n supposed to be? I can't make any sense of [1, 4, 11, 31, 83, 227, 616, 1674], and neither can the Encyclopedia of Integer Sequences or Maple's guessgf.

A004080

Comment on 2008-10-12 15:51 from Joe Riel ( Maple Rating 4

1248)

I believe it is A004080 in www.research.att.com/~njas/sequences/Seis.html

A004080

Comment on 2008-10-12 16:07 from Robert Israel ( Maple Rating 4

1429)

Yes, I saw that after I saw your posting... My fault, I miscopied the search string. In any case, I think my advice was sound: whether trying to do a problem oneself or asking somebody else for help, it's important to state the problem clearly.

}

Harmonic

Hi, I need help. I need to

one approach

What are you trying to do?

A004080

A004080

Comment viewing options