|
|
A096138
|
|
a(1) = 1, a(n) = digit reversal of n*a(n-1).
|
|
2
|
|
|
1, 2, 6, 42, 12, 27, 981, 8487, 38367, 76383, 312048, 6754473, 94180878, 2922358131, 56917353834, 443166776019, 3232915383357, 62400967429185, 5154511838165811, 22613367632090301, 123698372027088474, 8246495954814631272
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
a(10^n) is the digit reversal of a(10^n -1).
|
|
LINKS
|
|
|
MATHEMATICA
|
nxt[{n_, a_}]:={n+1, FromDigits[Reverse[IntegerDigits[(1+n)*a]]]}; Transpose[ NestList[ nxt, {1, 1}, 30]][[2]] (* Harvey P. Dale, Dec 31 2013 *)
|
|
PROG
|
(Haskell)
a096138 n = a096138_list !! (n-1)
a096138_list = 1 : g 2 1 where
g x y = z : g (x + 1) z where z = a004086 (x * y)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|