OFFSET
0,1
REFERENCES
Charles Duvall, Email to N. J. A. Sloane, Oct 07 2014.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
MATHEMATICA
Table[{FromDigits[Join[IntegerDigits[n], IntegerDigits[n+1]]], FromDigits[Join[IntegerDigits[n+1], IntegerDigits[ n]]]}, {n, 30}]//Flatten (* Harvey P. Dale, Apr 19 2024 *)
PROG
(Haskell)
import Data.List (transpose)
a248378 n = a248378_list !! n
a248378_list = concat $ transpose [a001704_list, tail a127423_list]
-- Reinhard Zumkeller, Oct 07 2014
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
N. J. A. Sloane, Oct 07 2014
STATUS
approved