A171551 Numbers n with property that decimal expansion of 3^n-2^n contains no pair of neighbor equal digits (probably finite).
0, 1, 2, 3, 4, 7, 8, 9, 10, 12, 13, 15, 18, 20, 21, 22, 23, 24, 26, 27, 29, 37, 50
Offset: 0
Examples
50 is a term because 3^50-2^50 = 717897986565952681927625, while 49 is not because 3^49-2^49 = 2392(99)328(66)7(66)7576168(77)1 (four pairs of neighbor equal digits).
Programs
-
Mathematica
Reap[Do[id=IntegerDigits[3^m-2^m];rm=Rest[id]-Most[id];If[FreeQ[rm,0],Sow[m]],{m,0,10000}]][[2,1]]