OFFSET
1,1
LINKS
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