A128465 Numbers k such that k divides the numerator of alternating Harmonic number H'((k+1)/2) = A058313((k+1)/2).
1, 5, 7, 71, 379, 2659
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Harmonic Number
Programs
-
Mathematica
f=0; Do[ f = f + (-1)^(n+1)*1/n; g = Numerator[f]; If[ IntegerQ[ g/(2n-1) ], Print[2n-1]], {n,1,3000} ]
Extensions
Edited by Max Alekseyev, Nov 30 2022
Comments