|
|
A203070
|
|
Smallest positive multiple of n that is palindromic in base 3, ignoring trailing zeros.
|
|
2
|
|
|
1, 2, 3, 4, 10, 6, 28, 8, 9, 10, 121, 12, 13, 28, 30, 16, 68, 18, 608, 20, 84, 242, 23, 24, 100, 26, 27, 28, 203, 30, 1550, 160, 363, 68, 280, 36, 1850, 608, 39, 40, 82, 84, 4988, 484, 90, 644, 1222, 48, 784, 100, 204, 52, 212, 54, 1210, 56, 1824, 1276, 1003
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|