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 A217161 #14 Mar 18 2018 14:52:35
%S A217161 971,538,486,1087,371,175,324,269,6,482,362,327,196,516,243,350,288,
%T A217161 144,6,895,822,238,481,1137,281,180,127,358,6,286,454,286,347,110,481,
%U A217161 346,314,448,6,565,388,275,90,622,231,451,37,255,6,481,202,191,472,308
%N A217161 a(n) is the least value of k such that the decimal expansion of n^k contains six consecutive identical digits.
%H A217161 V. Raman, <a href="/A217161/b217161.txt">Table of n, a(n) for n = 2..10000</a>
%t A217161 Table[k = 1; While[! MemberQ[Partition[Differences[IntegerDigits[n^k]], 5, 1], {0, 0, 0, 0, 0}], k++]; k, {n, 2, 100}] (* _T. D. Noe_, Oct 01 2012 *)
%t A217161 lk[n_]:=Module[{k=1,t=Table[x_,6]},While[SequenceCount[IntegerDigits[ n^k],t]<1,k++];k]; Array[lk,60,2] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 18 2018 *)
%Y A217161 Cf. A045875, A215727, A215728, A215729, A215730, A215731.
%K A217161 nonn,base
%O A217161 2,1
%A A217161 _V. Raman_, Sep 27 2012