OFFSET
1,1
COMMENTS
Indices k such that A119788(k) is not equal to 1.
Also indices k such that numerators of k*H'(k) = A119787(k) and H'(k) = A058313(k) are different (H'(k) is the alternating harmonic number H'(k) = Sum_{j=1..k} (-1)^(j+1)*1/j). The ratio of numerators A119787(k)/A058313(k) for k = 1..400 is given in A119788(k). A121595(k) = A119788(a(k)) is the compressed version of A119788(k) (all 1 entries are excluded).
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..900
MATHEMATICA
Do[H=Sum[(-1)^(i+1)*1/i, {i, 1, n}]; a=Numerator[n*H]; b=Numerator[H]; If[ !Equal[a, b], Print[{n, a/b}]], {n, 1, 6000}]
f=0; Do[f=f+(-1)^(n+1)/n; If[ !IntegerQ[Denominator[f]/n], Print[n]], {n, 1, 100}] (* Alexander Adamchuk, Jan 02 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Aug 09 2006
STATUS
approved