[go: up one dir, main page]

login
A261351
Inverse permutation to A084385.
2
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,2
COMMENTS
-4 <= a(n) - A084385(n) <= 3;
for n > 4: a(n) != A084385(n);
for n > 7: a(n) >= A084385(n) - 3.
PROG
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a261351 = (+ 1) . fromJust . (`elemIndex` a084385_list)
CROSSREFS
Cf. A084385.
Sequence in context: A296616 A143529 A331010 * A249054 A103867 A075375
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 16 2015
STATUS
approved