OFFSET
0,3
EXAMPLE
2^73+3^73 = 67585198634826967968486182914745315.
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 *)
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Zak Seidov, Dec 11 2009
STATUS
approved