A095690 Permutation of natural numbers inverse to A075618.

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

Offset

1,2

Links

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

Example

a(3)=4 because A075618(4)=3.

Maple

a:=proc(n) option remember; local t, S, i; S:={$1..300} minus {seq(a(i), i=1..n-1)}; t:=min(S[]); if n::odd then while parse(cat(seq(a((n+1)/2+i), i=0..(n-3)/2), t)) mod (n+1)/2 <> 0 do S:=S minus {t}; t:=min(S[]) od fi; t end: a(1):=1: L:=[seq(a(n), n=1..186)]: A:=n-> if member(n, L, 'p') then p else 0 fi: seq(A(n), n=1..157);

Crossrefs

Cf. A075618.

Sequence in context: A338500 A259570 A334672 * A094870 A075618 A095689

Adjacent sequences: A095687 A095688 A095689 * A095691 A095692 A095693

Keyword

easy,nonn

Author

Alec Mihailovs (alec(AT)mihailovs.com), Jul 05 2004

Status

approved