cp's OEIS Frontend

A217168 a(n) is the first digit (from the left) to appear three times in succession in the decimal representation of n^A217158(n).

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