|
| |
|
|
A097467
|
|
Permutation of natural numbers inverse to A097465.
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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: A163238 A097362 A129131 * A169839 A187109 A092205
Adjacent sequences: A097464 A097465 A097466 * A097468 A097469 A097470
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Alec Mihailovs (alec(AT)mihailovs.com), Aug 23 2004
|
| |
|
|
