|
| |
| |
|
|
|
2, 1, 4, 3, 8, 5, 10, 6, 13, 7, 16, 9, 17, 11, 18, 12, 21, 14, 24, 15, 25, 19, 26, 20, 29, 22, 32, 23, 33, 27, 34, 28, 36, 30, 37, 31, 38, 35, 40, 39, 41, 42, 45, 43, 47, 44, 48, 46, 49, 53, 50, 57, 51, 63, 52, 67, 54, 68, 55, 73, 56, 75, 58, 76, 59, 79, 60, 80, 61, 82, 62, 83
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Position of n in permutation of natural numbers A105361.
|
|
|
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]]]]; t = Table[ a[n], {n, 80}]; Position[t, # ] & /@ Range[80] // Flatten
|
|
|
CROSSREFS
| Cf. A105361.
Sequence in context: A179206 A074987 A128280 * A008347 A112387 A193174
Adjacent sequences: A106622 A106623 A106624 * A106626 A106627 A106628
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), May 10 2005
|
| |
|
|
