|
%I #16 Apr 26 2021 20:43:53
%S 0,1,7,23,163,71,617,1479,15551,17819,221209,246619,3538687,3873307,
%T 4209643,9094961,166145857,59239139,1199057081,254554945,89778475,
%U 94716499,2292289173,7218943253,189040347533
%N Numerator of n minus n-th harmonic number.
%H Robert Israel, <a href="/A187487/b187487.txt">Table of n, a(n) for n = 1..2286</a>
%F a(n) = n - Sum_{i = 1..n} 1/i.
%F a(n) = Sum_{i = 2..n} (i - 1)/i.
%p f:=n -> numer(n - harmonic(n)):map(f, [$1..100]); # _Robert Israel_, Apr 26 2021
%t Numerator[Table[n - HarmonicNumber[n], {n, 25}]]
%o (PARI) a(n) = numerator(n - sum(i=1, n, 1/i)); \\ _Michel Marcus_, Apr 26 2021
%Y Denominators are in A002805.
%Y Cf. A001008 (numerators of the harmonic numbers). Adding this sequence to that sequence gives A102928.
%K nonn,frac,easy
%O 1,3
%A _Alonso del Arte_, Mar 10 2011
|
