

A126083


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


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


LINKS



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



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



