

A171551


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


1



0, 1, 2, 3, 4, 7, 8, 9, 10, 12, 13, 15, 18, 20, 21, 22, 23, 24, 26, 27, 29, 37, 50
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


LINKS



EXAMPLE

50 is a term because 3^502^50 = 717897986565952681927625,
while 49 is not because 3^492^49 = 2392(99)328(66)7(66)7576168(77)1 (four pairs of neighbor equal digits).


MATHEMATICA

Reap[Do[id=IntegerDigits[3^m2^m]; rm=Rest[id]Most[id]; If[FreeQ[rm, 0], Sow[m]], {m, 0, 10000}]][[2, 1]]


CROSSREFS



KEYWORD

base,fini,full,nonn


AUTHOR



STATUS

approved



