|
%I #10 Jan 09 2021 10:23:45
%S 1,8,3,6,5,4,7,2,9,20,11,18,13,16,15,14,17,12,19,90,81,88,83,86,85,84,
%T 87,82,89,40,31,38,33,36,35,34,37,32,39,70,61,68,63,66,65,64,67,62,69,
%U 60,51,58,53,56,55,54,57,52,59,50,41,48,43,46,45,44,47,42,49,80,71,78
%N Rearrangement of positive integers: change even digits d to 10-d.
%C Note that digit 0 becomes 10, i.e. 0 with a 1 carried to the next place. - _Robert Israel_, Jun 26 2019
%H Robert Israel, <a href="/A104697/b104697.txt">Table of n, a(n) for n = 1..10000</a>
%p f:= proc(n) local L;
%p L:= subs(S,convert(n,base,10));
%p add(L[i]*10^(i-1),i=1..nops(L))
%p end proc;
%p map(f, [$1..100]); # _Robert Israel_, Jun 26 2019
%Y Cf. A104696.
%K easy,nonn,base,look
%O 1,2
%A _Zak Seidov_, Mar 18 2005
|
