OFFSET
1,1
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, Harmonic Number.
Eric Weisstein's World of Mathematics, Hilbert Matrix.
MATHEMATICA
h=0; Do[ h=h+1/(n+1)/(2n+1); f=Numerator[n*h]; g=Numerator[h]; If[ !Equal[f, g] && !PrimeQ[f/g], Print[ {n, f/g, FactorInteger[n], FactorInteger[f/g]} ] ], {n, 1, 10000} ]
PROG
(PARI) f(n) = sum(k=1, n, 1/(n+k));
isok(k) = my(fk = f(k), q = numerator(k*fk)/ numerator(fk)); (q!=1) && !isprime(q); \\ Michel Marcus, Mar 08 2023
CROSSREFS
KEYWORD
bref,hard,more,nonn
AUTHOR
Alexander Adamchuk, Mar 12 2007, Jun 09 2007
EXTENSIONS
Edited by Max Alekseyev, Jul 12 2019
STATUS
approved