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 A217162 #14 May 23 2016 16:35:48
%S A217162 972,2124,486,2786,1503,1961,324,1062,7,1323,1938,512,1053,2600,243,
%T A217162 2474,1486,940,7,1085,1068,238,2908,1393,699,708,704,1566,7,286,1711,
%U A217162 935,2225,1190,1357,692,1182,448,7,885,1349,815,647,1675,1131,548,333,1154,7
%N A217162 a(n) is the least value of k such that the decimal expansion of n^k contains seven consecutive identical digits.
%H A217162 V. Raman, <a href="/A217162/b217162.txt">Table of n, a(n) for n = 2..1000</a>
%t A217162 Table[k = 1; While[! MemberQ[Partition[Differences[IntegerDigits[n^k]], 6, 1], {0, 0, 0, 0, 0, 0}], k++]; k, {n, 2, 100}] (* _T. D. Noe_, Oct 01 2012 *)
%t A217162 scd[n_]:=Module[{k=1},While[FreeQ[IntegerDigits[n^k],{___,x_,x_,x_,x_,x_,x_,x_,___}],k++];k]; Array[scd,50,2] (* _Harvey P. Dale_, May 23 2016 *)
%Y A217162 Cf. A045875, A215727, A215728, A215729, A215730, A215731.
%K A217162 nonn,base
%O A217162 2,1
%A A217162 _V. Raman_, Sep 27 2012