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
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Apr 01 2005
STATUS
approved