A171550 Numbers n with property that decimal expansion of 2^n+3^n contains no pair of neighbor equal digits (probably finite).

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 15, 17, 22, 23, 26, 27, 29, 45, 52, 73

Offset: 0

Author

Zak Seidov, Dec 11 2009

Keywords

• base
• fini
• full
• nonn

Examples

			2^73+3^73 = 67585198634826967968486182914745315.
		

Crossrefs

Cf. A050723 (2^n), A050724 (3^n), A171551 (3^n-2^n).

Programs

Mathematica

Reap[Do[id=IntegerDigits[2^m+3^m];rm=Rest[id]-Most[id];If[FreeQ[rm,0],Sow[m]],{m,0,10000}]][[2,1]]
Select[Range[0,80],FreeQ[Differences[IntegerDigits[2^#+3^#]],0]&] (* Harvey P. Dale, Dec 09 2021 *)