[go: up one dir, main page]

login
A108592
Self-inverse integer permutation induced by Beatty sequences for 2*Pi and 2*Pi/(2*Pi-1).
5
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
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
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Jun 11 2005
EXTENSIONS
Four terms corrected by Georg Fischer and Michel Marcus, May 25 2022
STATUS
approved