A261351 Inverse permutation to A084385.

1, 2, 4, 3, 6, 8, 5, 9, 7, 12, 10, 13, 11, 16, 14, 17, 15, 20, 18, 21, 19, 24, 22, 25, 23, 28, 26, 29, 27, 32, 30, 33, 31, 36, 34, 37, 35, 40, 38, 41, 39, 44, 42, 45, 43, 48, 46, 49, 47, 52, 50, 53, 51, 56, 54, 57, 55, 60, 58, 61, 59, 64, 62, 65, 63, 68, 66

Offset: 1

Author

Reinhard Zumkeller, Aug 16 2015

Keywords

• nonn

Comments

-4 <= a(n) - A084385(n) <= 3;

for n > 4: a(n) != A084385(n);

for n > 7: a(n) >= A084385(n) - 3.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Index entries for sequences that are permutations of the natural numbers

Crossrefs

Cf. A084385.

Programs

Haskell

import Data.List (elemIndex); import Data.Maybe (fromJust)
a261351 = (+ 1) . fromJust . (`elemIndex` a084385_list)