OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
p = RealDigits[Pi, 10, 100][[1]]; e = RealDigits[E, 10, 100][[1]]; r = Range[100]; a[n_] := a[n] = Block[{c = Complement[r, Table[ a[i], {i, n - 1}]]}, If[p[[n]] > e[[n]], Select[c, EvenQ[ # ] &][[1]], Select[c, OddQ[ # ] &][[1]]]]; Table[ a[n], {n, 72}] (* Robert G. Wilson v, Apr 02 2005 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Apr 01 2005
EXTENSIONS
Edited by Robert G. Wilson v, Apr 02 2005
STATUS
approved