A111862 - OEIS

%I #12 May 18 2024 01:54:20

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

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

%U 0,6,2,8,4,0,6,1,7,3,8,4,0,5,1,6,1,7,2

%N Second digit after decimal point of square root of n in decimal representation.

%H Nathaniel Johnston, <a href="/A111862/b111862.txt">Table of n, a(n) for n = 1..10000</a>

%p A111862 := proc(n) return floor(100*sqrt(n)) mod 10: end: seq(A111862(n), n=1..100); # _Nathaniel Johnston_, May 04 2011

%t Mod[Floor[100*Sqrt[Range[100]]], 10] (* _Paolo Xausa_, May 17 2024 *)

%Y Cf. A023961, A111890, A111891, A111892, A111893, A111894, A111895, A111896, A111897, A111898, A111899.

%K nonn,easy,base

%O 1,3

%A _Reinhard Zumkeller_, Aug 20 2005