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

Author

Zak Seidov, Dec 11 2009

Keywords

• base
• fini
• full
• nonn

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).
		

Crossrefs

Cf. A050723 (2^n), A050724 (3^n), A171550 (3^n+2^n).

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]]