A367362 - OEIS

%I #26 Feb 07 2024 13:21:43

%S 1,12,23,34,45,56,67,78,89,91,1,11,21,31,41,51,61,71,81,92,2,12,22,32,

%T 42,52,62,72,82,93,3,13,23,33,43,53,63,73,83,94,4,14,24,34,44,54,64,

%U 74,84,95,5,15,25,35,45,55,65,75,85,96,6,16,26,36,46,56,66,76,86,97,7,17,27,37,47,57,67,77,87,98,8,18

%N Comma transform of the nonnegative integers.

%C See A367360 for further information.

%H Michael S. Branicky, <a href="/A367362/b367362.txt">Table of n, a(n) for n = 0..10000</a>

%H Eric Angelini, Michael S. Branicky, Giovanni Resta, N. J. A. Sloane, and David W. Wilson, The Comma Sequence: A Simple Sequence With Bizarre Properties, <a href="http://arxiv.org/abs/2401.14346">arXiv:2401.14346</a>, <a href="https://www.youtube.com/watch?v=_EHAdf6izPI">Youtube</a>

%F a(n) = 10 * A010879(n) + A000030(n+1). - _Alois P. Heinz_, Nov 22 2023

%p a:= n-> parse(cat(""||n[-1], ""||(n+1)[1])):

%p seq(a(n), n=0..99);  # _Alois P. Heinz_, Nov 22 2023

%t FromDigits /@ Partition[Rest@ Flatten[{First[#], Last[#]} & /@ IntegerDigits[Range[0, 120]]], 2, 2] (* _Michael De Vlieger_, Nov 22 2023 *)

%o (Python)

%o from itertools import count, islice, pairwise

%o def S(): yield from (str(i) for i in count(0))

%o def agen(): yield from (int(t[-1]+u[0]) for t, u in pairwise(S()))

%o print(list(islice(agen(), 82))) # _Michael S. Branicky_, Nov 22 2023

%o (Python)

%o def A367362(n): return (n%10)*10+int(str(n+1)[0]) # _Chai Wah Wu_, Dec 22 2023

%Y Cf. A000030, A010879, A166499, A367360, A367361, A368362.

%K nonn,base

%O 0,2

%A _N. J. A. Sloane_, Nov 22 2023