%I A110795
%S A110795 1,2,6,600,600,25200,25200,483840,698867688960,6988676889600,
%T A110795 293599799539200,489718781798400,48196817186918400
%N A110795 Least multiple of n! that leaves a palindrome if trailing zeros are ignored.
%C A110795 a(14) > 10^18. [From Donovan Johnson (donovan.johnson(AT)yahoo.com),
Nov 15 2009]
%e A110795 a(8) = 483840= 8!*12, ignoring the leading zero gives 48384 which is
a palindrome.
%p A110795 A004151 := proc(n) local a ; a := n ; while a mod 10 = 0 do a := a/10
; end: RETURN(a); end: isA002113 := proc(n) local digs,i ; digs :=
convert(n,base,10) ; for i from 1 to nops(digs)/2 do if op(i,digs)
<> op(-i,digs) then RETURN(false) ; fi ; od; RETURN(true) ; end:
A110795 := proc(n) local nf,k ; nf := n! ; k := 1 ; while not isA002113(A004151(k*nf))
do k := k+1 ; od: RETURN(k*nf) ; end: seq(A110795(n),n=1..9) ; -
R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 17 2007
%Y A110795 Cf. A110796.
%Y A110795 Sequence in context: A135424 A132495 A112724 this_sequence A067107 A047690
A113569
%Y A110795 Adjacent sequences: A110792 A110793 A110794 this_sequence A110796 A110797
A110798
%K A110795 base,more,nonn,new
%O A110795 1,2
%A A110795 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 13 2005
%E A110795 Corrected and extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl),
Aug 17 2007
%E A110795 a(11)-a(13) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Nov
15 2009
|