This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A217170 #11 Oct 02 2012 15:03:22
%S A217170 6,5,6,4,2,5,4,5,0,6,5,4,4,1,6,5,5,9,0,2,8,6,2,5,9,2,1,8,0,2,6,8,2,6,
%T A217170 2,6,3,8,0,8,7,0,1,7,6,3,6,5,0,6,9,6,6,9,2,2,4,4,0,4,9,4,2,3,4,4,8,5,
%U A217170 0,2,9,9,0,9,9,0,9,6,0,0,4,9,1,0,6,1,2
%N A217170 a(n) is the first digit (from the left) to appear five times in succession in the decimal representation of n^A217160(n).
%H A217170 V. Raman, <a href="/A217170/b217170.txt">Table of n, a(n) for n = 2..10000</a>
%t A217170 Table[k = 1; While[d = IntegerDigits[n^k]; df = Partition[Differences[d], 4, 1]; ! MemberQ[df, {0, 0, 0, 0}], k++]; d[[Position[df, {0, 0, 0, 0}][[1, 1]]]], {n, 2, 100}] (* _T. D. Noe_, Oct 02 2012 *)
%Y A217170 Cf. A217160.
%Y A217170 Cf. A215732, A215733, A215734, A215735, A215736, A215737.
%K A217170 nonn,base
%O A217170 2,1
%A A217170 _V. Raman_, Sep 27 2012