|
%I #8 Jun 15 2017 17:11:10
%S 1,2,3,2,4,3,2,1,4,3,2,4,6,8,3,2,4,6,5,4,3,2,4,1,8,10,8,7,2,4,6,8,6,
%T 15,4,3,2,4,6,8,10,12,5,14,3,2,4,6,1,10,7,18,10,4,15,2,4,6,8,10,12,14,
%U 24,15,8,3,2,4,6,8,10,12,8,21,6,5,4,15,2,4,6
%N Array RATS(b,n) by upward antidiagonals: Reverse Add Then Sort digits of n>0 in base b>1.
%H J. Thiel, <a href="https://www.emis.de/journals/INTEGERS/papers/o50/o50.pdf">On RATS sequences in general bases</a>, Integers, 14 (2014), #A50.
%H <a href="/index/Ra#RATS">Index entries for sequences related to RATS: Reverse, Add Then Sort</a>
%e 17 in base 3 is 122, 122+221=1120->112 which is 14 in decimal, thus RATS(3,17)=14.
%e The array begins:
%e 1, 3, 3, 3, 3, 3, 7, ...
%e 2, 4, 4, 8, 4, 8, 4, ...
%e 2, 1, 6, 5, 10, 15, 5, ...
%e 2, 4, 6, 8, 6, 12, 18, ...
%e 2, 4, 1, 8, 10, 7, 14, ...
%t rats[n_, b_: 10] := FromDigits[Sort[IntegerDigits[n + FromDigits[Reverse[IntegerDigits[n, b]], b], b]], b];
%t Flatten[Table[rats[n, s + 2 - n], {s, 20}, {n, s}]]
%Y Cf. A004000, A036839 (row 10), A191780, A288536, A288537.
%K nonn,tabl,base,easy
%O 2,2
%A _Andrey Zabolotskiy_, Jun 11 2017
|
