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

Author

Reinhard Zumkeller, Jun 11 2005

Keywords

• nonn
• easy

Links

• 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

Crossrefs

Cf. A108590, A108591, A108593.

Programs

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

Formula

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

Extensions

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