|
%I #11 Mar 30 2012 18:51:46
%S 1,2,3,4,10,6,28,8,9,10,121,12,13,28,30,16,68,18,608,20,84,242,23,24,
%T 100,26,27,28,203,30,1550,160,363,68,280,36,1850,608,39,40,82,84,4988,
%U 484,90,644,1222,48,784,100,204,52,212,54,1210,56,1824,1276,1003
%N Smallest positive multiple of n that is palindromic in base 3, ignoring trailing zeros.
%H Harvey P. Dale, <a href="/A203070/b203070.txt">Table of n, a(n) for n = 1..1000</a>
%t 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]
%Y Cf. A141709.
%K nonn,base
%O 1,2
%A _Harvey P. Dale_, Dec 28 2011
|
