login
GCD of n! and the reverse of n!.
0

%I #5 Oct 15 2013 22:31:23

%S 1,2,6,6,3,9,45,1152,189,189,99,594,594,198,99,198,99,594,99,378378,

%T 45045,99,396,30294,2279277,14256,3267,1089,6336,9702,20196,6534,396,

%U 11088,20117097,99,99,6318675,594,21978,1089,297,2178,594,1683,1485

%N GCD of n! and the reverse of n!.

%F a(n)=A055483[n! ]

%e n=7, a(7)=GCD[5040,405]=45.

%t 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}]

%Y Cf. A055483.

%K base,nonn

%O 1,2

%A _Labos Elemer_, May 31 2002