A097467 Permutation of natural numbers inverse to A097465.

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

Offset

1,2

Links

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

Example

a(3)=2 because A097465(2)=3.

Maple

A:=proc(n) option remember; local t, S; S:=({$1..1000} minus {seq(A(i), i=1..n-1)}) minus {A(n-1)-1, A(n-1)+1}; t:=min(S[]); while igcd(A(n-1), t)>1 do S:=S minus {t}; t:=min(S[]) od; t end: A(1):=1: L:=[seq(A(n), n=1..200)]: a:=n-> if member(n, L, 'p') then p else 0 fi: seq(a(n), n=1..195);

Crossrefs

Cf. A097465.

Sequence in context: A257885 A257908 A349491 * A169839 A308712 A275845

Adjacent sequences: A097464 A097465 A097466 * A097468 A097469 A097470

Keyword

nonn

Author

Alec Mihailovs (alec(AT)mihailovs.com), Aug 23 2004

Status

approved