A130719 - OEIS

%I #4 Nov 28 2013 11:40:33

%S 0,0,3,3,3,0,1,4,3,9,7,0,7,2,3,2,3,0,4,8,1,8,4,3,6,1,1,6,9,4,4,0,9,1,

%T 3,7,1,4,2,6,0,6,0,2,3,5,2,9,4,5,3,6,7,8,4,3,5,3,3,5,0,5,2,1,0,2,0,8,

%U 8,7,0,0,1,7,9,9,8,5,1,0

%N a(n) = n-th digit after the decimal point of the decimal representation of the n-th harmonic number.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HarmonicSeries.html">Harmonic Series</a>.

%e a(7) = 1 because the 7th harmonic number is 1/1+1/2+1/3+1/4+1/5+1/6+1/7 = 2.592857143... and 1 is the 7th digit after the decimal point.

%t Table[Last[RealDigits[HarmonicNumber[n],10,n+1][[1]]],{n,80}] (* _Harvey P. Dale_, Nov 28 2013 *)

%K base,nonn

%O 1,3

%A Stephen Casey (hexomino(AT)gmail.com), Jul 03 2007