A071678 GCD of n! and the reverse of n!.

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

Offset

1,2

Links

Table of n, a(n) for n=1..46.

Formula

a(n)=A055483[n! ]

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

Cf. A055483.

Sequence in context: A136696 A086358 A004152 * A316164 A319276 A141329

Adjacent sequences: A071675 A071676 A071677 * A071679 A071680 A071681

Keyword

base,nonn

Author

Labos Elemer, May 31 2002

Status

approved