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 A217173 #8 Oct 02 2012 15:12:55
%S A217173 1,1,1,5,7,1,2,1,0,0,2,8,3,8,0,8,8,5,0,0,5,5,7,5,4,5,8,4,0,1,1,2,7,7,
%T A217173 2,5,5,7,0,6,8,1,2,3,6,6,5,1,0,0,4,3,5,8,4,5,3,6,0,2,9,8,2,4,1,2,8,5,
%U A217173 0,0,9,6,8,0,3,6,4,3,0,1,0,5,7,9,7,8,1
%N A217173 a(n) is the first digit (from the left) to appear eight times in succession in the decimal representation of n^A217163(n).
%t A217173 Table[k = 1; While[d = IntegerDigits[n^k]; df = Partition[Differences[d], 7, 1]; ! MemberQ[df, {0, 0, 0, 0, 0, 0, 0}], k++]; d[[Position[df, {0, 0, 0, 0, 0, 0, 0}][[1, 1]]]], {n, 2, 10}] (* _T. D. Noe_, Oct 02 2012 *)
%Y A217173 Cf. A217163.
%Y A217173 Cf. A215732, A215733, A215734, A215735, A215736, A215737.
%K A217173 nonn,base
%O A217173 2,4
%A A217173 _V. Raman_, Sep 27 2012