%I #7 Oct 01 2016 16:56:44
%S 1,2,3,4,5,7,9,6,11,8,13,15,17,19,21,10,23,25,27,29,31,33,35,12,14,16,
%T 37,39,18,41,43,20,22,45,47,24,26,28,49,51,30,53,55,57,59,61,32,34,36,
%U 38,40,42,63,44,46,65,67,48,69,50,52,54,71,56,58,60,73,75,62,77,64,66
%N Rearrangement of positive integers according to decimal expansions of Pi and e (see comments).
%C Take decimal expansions of Pi and e: p=3,1,4,1,5,9,2,6,5,... e=2,1,4,3,6,8,10,5,12,... If p(n)<e(n) then a(n) is the next even number otherwise a(n) is the next odd number.
%t re=RealDigits[N[Pi, 200]][[1]];ee=RealDigits[N[E, 200]][[1]];bb={};od=-1;ev=0;Do[If[re[[i]]<ee[[i]], ev=ev+2;bb=Append[bb, ev], od=od+2;bb=Append[bb, od]], i, 200}];bb
%Y Cf. A105361.
%K nonn,base
%O 1,2
%A _Zak Seidov_, Apr 01 2005
|