cp's OEIS Frontend

A248378 a(2n) = concatenation of n+1 with n+2, a(2n+1) = concatenation of n+2 with n+1.

%I A248378 #15 Apr 19 2024 17:51:58
%S A248378 12,21,23,32,34,43,45,54,56,65,67,76,78,87,89,98,910,109,1011,1110,
%T A248378 1112,1211,1213,1312,1314,1413,1415,1514,1516,1615,1617,1716,1718,
%U A248378 1817,1819,1918,1920,2019,2021,2120,2122,2221,2223,2322,2324,2423,2425,2524,2526
%N A248378 a(2n) = concatenation of n+1 with n+2, a(2n+1) = concatenation of n+2 with n+1.
%D A248378 Charles Duvall, Email to N. J. A. Sloane, Oct 07 2014.
%H A248378 Reinhard Zumkeller, <a href="/A248378/b248378.txt">Table of n, a(n) for n = 0..10000</a>
%t A248378 Table[{FromDigits[Join[IntegerDigits[n],IntegerDigits[n+1]]],FromDigits[Join[IntegerDigits[n+1],IntegerDigits[ n]]]},{n,30}]//Flatten (* _Harvey P. Dale_, Apr 19 2024 *)
%o A248378 (Haskell)
%o A248378 import Data.List (transpose)
%o A248378 a248378 n = a248378_list !! n
%o A248378 a248378_list = concat $ transpose [a001704_list, tail a127423_list]
%o A248378 -- _Reinhard Zumkeller_, Oct 07 2014
%Y A248378 Cf. A001704, A127423.
%Y A248378 Cf. A154530 (primes).
%K A248378 nonn,base,easy
%O A248378 0,1
%A A248378 _N. J. A. Sloane_, Oct 07 2014