This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A216137 #9 Sep 20 2012 17:11:56
%S A216137 40,24,22,23,10,12,14,13,1,8,7,10,10,8,12,8,6,6,1,6,6,9,6,12,8,9,8,10,
%T A216137 1,8,8,6,5,6,5,8,8,5,1,10,5,4,7,8,6,4,6,5,1,6,6,8,7,6,6,6,4,5,1,7,5,5,
%U A216137 8,5,4,4,3,6,1,4,7,5,5,8,3,4,5,7,1,4,6,7,6
%N A216137 a(n) = conjectured number of integers k such that n^k has no two consecutive identical digits.
%H A216137 T. D. Noe, <a href="/A216137/b216137.txt">Table of n, a(n) for n = 2..1000</a>
%t A216137 Table[cnt = 0; Do[If[! MemberQ[Differences[IntegerDigits[n^k]], 0], cnt++], {k, 1000}]; cnt, {n, 2, 100}] (* _T. D. Noe_, Sep 20 2012 *)
%Y A216137 Cf. A216063, A216064, A216065.
%K A216137 nonn,base
%O A216137 2,1
%A A216137 _V. Raman_, Sep 01 2012