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 A050723 #16 Mar 07 2024 16:38:57
%S A050723 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,17,20,21,22,28,29,30,31,32,34,
%T A050723 35,36,37,48,54,55,56,66,67,68,69,80,87,104,126
%N A050723 Numbers k such that the decimal expansion of 2^k contains no pair of consecutive equal digits (probably finite).
%C A050723 No further terms up to 100000. - _T. D. Noe_, Sep 18 2012
%e A050723 2^126 = 85070591730234615865843651857942052864.
%p A050723 q:= n-> (s-> andmap(i-> s[i]<>s[i+1], [$1..length(s)-1]))(""||(2^n)):
%p A050723 select(q, [$0..200])[]; # _Alois P. Heinz_, Mar 07 2024
%t A050723 Select[Range[0,10000],!MemberQ[Differences[IntegerDigits[2^#]],0]&] (* _Harvey P. Dale_, Dec 24 2011 *)
%Y A050723 Cf. A043096, A007377, A046260, A046268.
%K A050723 nonn,base
%O A050723 1,3
%A A050723 _Patrick De Geest_, Sep 15 1999