|
|
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.
|
|
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
|
|
|
|