|
%I #12 Dec 31 2013 16:57:34
%S 1,2,6,42,12,27,981,8487,38367,76383,312048,6754473,94180878,
%T 2922358131,56917353834,443166776019,3232915383357,62400967429185,
%U 5154511838165811,22613367632090301,123698372027088474,8246495954814631272
%N a(1) = 1, a(n) = digit reversal of n*a(n-1).
%C a(10^n) is the digit reversal of a(10^n -1).
%C a(n) = A004086(A034874(n)). [_Reinhard Zumkeller_, Jan 02 2012]
%H Reinhard Zumkeller, <a href="/A096138/b096138.txt">Table of n, a(n) for n = 1..250</a>
%t nxt[{n_,a_}]:={n+1,FromDigits[Reverse[IntegerDigits[(1+n)*a]]]}; Transpose[ NestList[ nxt,{1,1},30]][[2]] (* _Harvey P. Dale_, Dec 31 2013 *)
%o (Haskell)
%o a096138 n = a096138_list !! (n-1)
%o a096138_list = 1 : g 2 1 where
%o g x y = z : g (x + 1) z where z = a004086 (x * y)
%o -- _Reinhard Zumkeller_, Jan 02 2012
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Jul 07 2004
%E Edited and extended by _Klaus Brockhaus_, Jul 09 2004
|
