login
A105362
Rearrangement of positive integers according to decimal expansions of Pi and e (see comments).
1
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.
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
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Apr 01 2005
STATUS
approved