%I #14 May 23 2016 16:35:48
%S 972,2124,486,2786,1503,1961,324,1062,7,1323,1938,512,1053,2600,243,
%T 2474,1486,940,7,1085,1068,238,2908,1393,699,708,704,1566,7,286,1711,
%U 935,2225,1190,1357,692,1182,448,7,885,1349,815,647,1675,1131,548,333,1154,7
%N a(n) is the least value of k such that the decimal expansion of n^k contains seven consecutive identical digits.
%H V. Raman, <a href="/A217162/b217162.txt">Table of n, a(n) for n = 2..1000</a>
%t 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 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 Cf. A045875, A215727, A215728, A215729, A215730, A215731.
%K nonn,base
%O 2,1
%A _V. Raman_, Sep 27 2012
|