A108592 Self-inverse integer permutation induced by Beatty sequences for 2*Pi and 2*Pi/(2*Pi-1).

6, 12, 18, 25, 31, 1, 37, 43, 50, 56, 62, 2, 69, 75, 81, 87, 94, 3, 100, 106, 113, 119, 125, 131, 4, 138, 144, 150, 157, 163, 5, 169, 175, 182, 188, 194, 7, 201, 207, 213, 219, 226, 8, 232, 238, 245, 251, 257, 263, 9, 270, 276, 282, 289, 295, 10, 301, 307, 314, 320, 326, 11, 333, 339, 345, 351, 358, 364, 13, 370

Offset

1,1

Links

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

Eric Weisstein's World of Mathematics, Beatty Sequence

Index entries for sequences that are permutations of the natural numbers

Index entries for sequences related to Beatty sequences

Formula

a(A038130(n))=A108586(n) and a(A108586(n))=A038130(n).

Prog

(PARI) a30(n) = floor(n*2*Pi);
a86(n) = floor(2*n*Pi/(2*Pi-1));
lista(nn) = {my(vb = vector(nn, n, a30(n))); my(vc = vector(nn, n, a86(n))); my(va = vector(nn)); for (n=1, nn, if (vb[n] <= nn, va[vb[n]] = vc[n]); if (vc[n] <= nn, va[vc[n]] = vb[n]); ); va; } \\ Michel Marcus, May 25 2022

Crossrefs

Cf. A108590, A108591, A108593.

Sequence in context: A020333 A044831 A033003 * A108593 A172331 A038130

Adjacent sequences: A108589 A108590 A108591 * A108593 A108594 A108595

Keyword

nonn,easy

Author

Reinhard Zumkeller, Jun 11 2005

Extensions

Four terms corrected by Georg Fischer and Michel Marcus, May 25 2022

Status

approved