A085230 Inverse of A085229.

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

Offset

1,2

Comments

Permutation of natural numbers: a(A085229(n)) = A085229(a(n)) = n.

Odd numbers appear in order, at a(2k) for k > 0. - Michael De Vlieger, Apr 13 2022

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Index entries for sequences that are permutations of the natural numbers

Mathematica

nn = 10000; c[_] = 0; a[1] = c[1] = 1; a[2] = 3; c[3] = u = 2; Do[k = u; While[Nand[c[k] == 0, CoprimeQ[a[i-1], k]], k++]; Set[{a[i], c[k]}, {k, i}]; If[a[i] == u, While[c[u] > 0, u++]], {i, 3, nn}]; Array[c, nn] (* Michael De Vlieger, Apr 13 2022 *)

Crossrefs

Cf. A085229, A093715.

Sequence in context: A282650 A270671 A282664 * A093715 A277911 A085229

Adjacent sequences: A085227 A085228 A085229 * A085231 A085232 A085233

Keyword

nonn

Author

Reinhard Zumkeller, Jun 22 2003

Status

approved