A105362 Rearrangement of positive integers according to decimal expansions of Pi and e (see comments).

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, 37, 39, 18, 41, 43, 20, 22, 45, 47, 24, 26, 28, 49, 51, 30, 53, 55, 57, 59, 61, 32, 34, 36, 38, 40, 42, 63, 44, 46, 65, 67, 48, 69, 50, 52, 54, 71, 56, 58, 60, 73, 75, 62, 77, 64, 66

Offset

1,2

Comments

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.

Links

Table of n, a(n) for n=1..72.

Mathematica

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

Crossrefs

Cf. A105361.

Sequence in context: A161751 A354126 A245820 * A361299 A115928 A247665

Adjacent sequences: A105359 A105360 A105361 * A105363 A105364 A105365

Keyword

nonn,base

Author

Zak Seidov, Apr 01 2005

Status

approved