|
%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
|
