|
|
A071678
|
|
GCD of n! and the reverse of n!.
|
|
0
|
|
|
1, 2, 6, 6, 3, 9, 45, 1152, 189, 189, 99, 594, 594, 198, 99, 198, 99, 594, 99, 378378, 45045, 99, 396, 30294, 2279277, 14256, 3267, 1089, 6336, 9702, 20196, 6534, 396, 11088, 20117097, 99, 99, 6318675, 594, 21978, 1089, 297, 2178, 594, 1683, 1485
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
n=7, a(7)=GCD[5040,405]=45.
|
|
MATHEMATICA
|
nd[x_, y_] := 10*x+y tn[x_] := Fold[nd, 0, x] ed[x_] := IntegerDigits[x] red[x_] := Reverse[IntegerDigits[x]] Table[GCD[w!, tn[red[w! ]]], {w, 1, 128}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|