|
%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
|
