1,1

a(1)=2; a(2)=3; n>=3: a(n) = numerator(harmonic mean of a(n-1) & a(n-2)).

a[1]=2; a[2]=3; a[n_]:=a[n]=Numerator[HarmonicMean[{a[n-1], a[n-2]}]];

Sequence in context: A061268 A122604 A024780 this_sequence A140494 A130337 A084728

Adjacent sequences: A107925 A107926 A107927 this_sequence A107929 A107930 A107931

easy,nonn

Zak Seidov (zakseidov(AT)yahoo.com), Jun 10 2005