A126083 a(n) = numerator of H(n) taken mod n, where H(n) = Sum_{k=1..n} 1/k is the n-th harmonic number.

0, 1, 2, 1, 2, 1, 6, 1, 1, 1, 1, 5, 4, 3, 2, 15, 5, 13, 11, 15, 11, 13, 8, 19, 17, 3, 23, 19, 1, 7, 20, 15, 13, 33, 19, 25, 17, 9, 28, 13, 20, 35, 27, 35, 22, 43, 28, 23, 17, 9, 20, 7, 29, 17, 19, 53, 53, 15, 7, 31, 46, 7, 34, 27, 24, 7, 11, 47, 11, 13, 42, 61, 56, 25, 58, 9, 66, 29, 44

Offset

1,3

Links

T. D. Noe, Table of n, a(n) for n=1..10000

Mathematica

seq = {}; s = 0; Do[s += 1/n; AppendTo[seq, Mod[Numerator[s], n]], {n, 1, 79}]; seq (* Amiram Eldar, Dec 01 2020 *)
Table[Mod[Numerator[HarmonicNumber[n]], n], {n, 80}] (* Harvey P. Dale, Apr 04 2022 *)

Crossrefs

Cf. A001008.

Sequence in context: A324605 A086545 A337395 * A356158 A071416 A053589

Adjacent sequences: A126080 A126081 A126082 * A126084 A126085 A126086

Keyword

nonn

Author

Leroy Quet, Mar 02 2007

Extensions

More terms from Max Alekseyev, Mar 06 2007

Status

approved