%I #4 Oct 19 2021 21:18:53
%S 0,1,2,3,4,7,8,9,10,12,13,15,18,20,21,22,23,24,26,27,29,37,50
%N Numbers n with property that decimal expansion of 3^n-2^n contains no pair of neighbor equal digits (probably finite).
%e 50 is a term because 3^50-2^50 = 717897986565952681927625,
%e while 49 is not because 3^49-2^49 = 2392(99)328(66)7(66)7576168(77)1 (four pairs of neighbor equal digits).
%t Reap[Do[id=IntegerDigits[3^m-2^m];rm=Rest[id]-Most[id];If[FreeQ[rm,0],Sow[m]],{m,0,10000}]][[2,1]]
%Y Cf. A050723 (2^n), A050724 (3^n), A171550 (3^n+2^n).
%K base,fini,full,nonn
%O 0,3
%A _Zak Seidov_, Dec 11 2009