|
%I #10 Jul 22 2020 11:42:35
%S 1,9,2,8,3,7,4,6,5,15,16,14,17,13,18,12,19,11,29,21,39,22,28,23,27,24,
%T 26,25,35,36,34,37,33,38,32,48,42,49,31,59,41,60,40,61,43,47,44,46,45,
%U 55,50,51,52,53,54,56,57,58,62,63,64,65,66,67,68,69,70
%N Lexicographically earliest permutation of the positive integers, such that a carry occurs when adjacent terms are added in decimal representation.
%C a(n+1) = smallest number, not occurring earlier, such that a carry occurs when adding it to a(n) in decimal arithmetic.
%H Reinhard Zumkeller, <a href="/A252001/b252001.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Carry.html">Carry</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Carry_(arithmetic)">Carry (arithmetic)</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%o (Haskell)
%o import Data.List (delete)
%o a252001 n = a252001_list !! (n-1)
%o a252001_list = 1 : f [1] (drop 2 a031298_tabf) where
%o f xs zss = g zss where
%o g (ds:dss) = if any (> 9) $ zipWith (+) xs ds
%o then (foldr (\d v -> 10 * v + d) 0 ds) : f ds (delete ds zss)
%o else g dss
%Y Cf. A252022 (no carries); A252002 (inverse), A252078 (fixed points), A251984, A167831.
%Y Cf. A262703 (first differences).
%K nonn,base
%O 1,2
%A _Reinhard Zumkeller_, Dec 12 2014
|
