OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
notpal3Q[i_]:=Module[{id=IntegerDigits[i, 3]}, While[Last[id]==0, id = Most[id]]; id!=Reverse[id]]; lm3[n_]:=Module[{k=1}, While[notpal3Q[k n], k++]; k n]; Array[lm3, 80]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Dec 28 2011
STATUS
approved