|
%I #9 Oct 02 2012 15:01:39
%S 8,8,7,2,1,7,7,8,0,0,0,2,4,4,7,4,6,1,0,2,9,4,4,5,9,0,7,4,0,2,3,9,4,6,
%T 8,0,3,0,0,0,6,1,1,5,3,1,6,0,0,9,0,2,7,8,4,7,6,9,0,2,5,7,7,5,9,6,4,7,
%U 0,3,4,0,4,7,3,1,2,3,0,0,0,5,1,2,3,2,1
%N a(n) is the first digit (from the left) to appear six times in succession in the decimal representation n^A217161(n).
%H V. Raman, <a href="/A217171/b217171.txt">Table of n, a(n) for n = 2..10000</a>
%t Table[k = 1; While[d = IntegerDigits[n^k]; df = Partition[Differences[d], 5, 1]; ! MemberQ[df, {0, 0, 0, 0, 0}], k++]; d[[Position[df, {0, 0, 0, 0, 0}][[1, 1]]]], {n, 2, 100}] (* _T. D. Noe_, Oct 02 2012 *)
%Y Cf. A217161.
%Y Cf. A215732, A215733, A215734, A215735, A215736, A215737.
%K nonn,base
%O 2,1
%A _V. Raman_, Sep 27 2012
|
