A106625 Inverse of A105361.

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

Offset

1,1

Comments

Position of n in permutation of natural numbers A105361.

Links

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

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: A128280 A182177 A281878 * A275902 A008347 A112387

Adjacent sequences: A106622 A106623 A106624 * A106626 A106627 A106628

Keyword

nonn

Author

Zak Seidov and Robert G. Wilson v, May 10 2005

Status

approved