|
|
A109929
|
|
Least palindromic multiple of concatenation n,n-1,n-2,...3,2,1.
|
|
1
|
|
|
1, 252, 180081, 855558, 335323533, 1072288822701, 1338059508331, 770589909985077, 97777777779, 98888888889, 1109887655445567889011, 739760991261414162199067937, 33436553118011488411081135563433, 4447899705293460330643925079987444, 551190490170920715517029071094091155
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := Block[{k = 1, p = FromDigits[ Flatten[ IntegerDigits /@ Range[n, 1, -1]]]}, While[k p != FromDigits[ Reverse[ IntegerDigits[k p]]], k++ ]; k p]; Table[ f[n], {n, 11}] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|