OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..9999
MATHEMATICA
Table[FromDigits[Riffle[IntegerDigits[n], IntegerDigits[n-1]]], {n, 60}] (* Harvey P. Dale, Aug 11 2015 *)
PROG
(Haskell)
a184989 n = read $ interleave (show n) (show (n - 1)) :: Integer where
interleave [] ys = ys
interleave (x:xs) ys = x : interleave ys xs
CROSSREFS
KEYWORD
AUTHOR
Reinhard Zumkeller, Mar 29 2011
STATUS
approved