editing

approved

<a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>

(Haskell)

import Data.List (elemIndex); import Data.Maybe (fromJust)

a249279 = fromJust . (`elemIndex` a249278_list)

-- Reinhard Zumkeller, Oct 27 2014

Reinhard Zumkeller, <a href="/A249279/b249279.txt">Table of n, a(n) for n = 0..10000</a>

approved

editing

proposed

approved

editing

proposed

0, 7, 1, 8, 2, 9, 3, 10, 4, 11, 12, 15, 16, 19, 20, 23, 24, 27, 28, 31, 5, 6, 13, 14, 17, 18, 21, 22, 25, 26, 32, 35, 36, 39, 40, 43, 44, 47, 48, 51, 29, 30, 33, 34, 37, 38, 41, 42, 45, 46, 52, 55, 56, 59, 60, 63, 64, 67, 68, 71, 49, 50, 53, 54, 57, 58, 61, 62, 65, 66, 72, 75, 76, 79, 80, 83, 84, 87, 88, 91, 69, 70, 73, 74, 77, 78, 81, 82, 85, 86, 92, 95, 96, 99, 100, 103, 104, 107

Inverse permutation of A249278 (such that first digit of a(n+1) has parity of a(n)).

allocated for M. F. Hasler

Inverse permutation of A249278 (such that first digit of a(n+1) has parity of a(n))

0, 7, 1, 8, 2, 9, 3, 10, 4, 11, 12, 15, 16, 19, 20, 23, 24, 27, 28, 31, 5, 6, 13, 14, 17, 18, 21, 22, 25, 26, 32, 35, 36, 39, 40, 43, 44, 47, 48, 51, 29, 30, 33, 34, 37, 38, 41, 42, 45, 46, 52, 55, 56, 59, 60, 63, 64, 67, 68, 71, 49, 50, 53, 54, 57, 58, 61, 62, 65, 66, 72, 75, 76, 79, 80, 83, 84, 87, 88, 91, 69, 70, 73, 74, 77, 78, 81, 82, 85, 86, 92, 95, 96, 99, 100, 103, 104, 107

0,2

(PARI) N=100; vector(N, n, t=0; for(i=1, #A249278, A249278[i]==n-1&&(t=i)&&break); t-1)

allocated

nonn

M. F. Hasler, Oct 24 2014

approved

editing

allocated for M. F. Hasler

allocated

approved