cp's OEIS Frontend

A217172 a(n) is the first digit (from the left) to appear seven times in succession in the decimal representation of n^A217162(n).

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