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 A171550 #4 Dec 09 2021 19:11:25
%S A171550 0,1,2,3,4,5,6,7,8,9,11,13,15,17,22,23,26,27,29,45,52,73
%N A171550 Numbers n with property that decimal expansion of 2^n+3^n contains no pair of neighbor equal digits (probably finite).
%e A171550 2^73+3^73 = 67585198634826967968486182914745315.
%t A171550 Reap[Do[id=IntegerDigits[2^m+3^m];rm=Rest[id]-Most[id];If[FreeQ[rm,0],Sow[m]],{m,0,10000}]][[2,1]]
%t A171550 Select[Range[0,80],FreeQ[Differences[IntegerDigits[2^#+3^#]],0]&] (* _Harvey P. Dale_, Dec 09 2021 *)
%Y A171550 Cf. A050723 (2^n), A050724 (3^n), A171551 (3^n-2^n).
%K A171550 base,fini,full,nonn
%O A171550 0,3
%A A171550 _Zak Seidov_, Dec 11 2009