A217174 - OEIS

%I #8 Oct 02 2012 15:16:30

%S 9,2,9,5,1,0,9,1,0,9,2,8,8,6,9,0,7,8,0,6,7,5,7,5,2,2,7,6,0,1,9,9,4,6,

%T 6,2,3,7,0,2,5,3,1,5,6,3,9,0,0,8,4,3,1,6,5,1,9,6,0,4,4,7,9,6,6,5,8,1,

%U 0,3,5,9,7,7,3,0,7,6,0,1,9,5,3,6,7,0,4

%N a(n) is the first digit (from the left) to appear nine times in succession in the decimal representation of n^A217164(n).

%t Table[k = 1; While[d = IntegerDigits[n^k]; df = Partition[Differences[d], 8, 1]; ! MemberQ[df, {0, 0, 0, 0, 0, 0, 0, 0}], k++]; d[[Position[df, {0, 0, 0, 0, 0, 0, 0, 0}][[1, 1]]]], {n, 2, 10}] (* _T. D. Noe_, Oct 02 2012 *)

%Y Cf. A217164.

%Y Cf. A215732, A215733, A215734, A215735, A215736, A215737.

%K nonn,base

%O 2,1

%A _V. Raman_, Sep 27 2012