OFFSET
1,2
COMMENTS
Apparently, a(n) == 0 (mod 4) for n > 1. For cycles, whose lengths are multiples of 8, the visited points form 8 separated islands.
Larger terms are 4293336, 4462104, 5787768, 11050488, 28333080, 38414184, 72397248.
LINKS
Hugo Pfoertner, Example of one of the 8 islands in orbit with L=11050488.
Hugo Pfoertner, Illustration of the orbits corresponding to the terms a(2)-a(24) of A368125, (2024).
PROG
(PARI) \\ Uses definitions and functions from
\\ a367150_PARI.txt and a368121_PARI.txt
cycle(v) = {my (n=1, w=BijectionD(v, BijectionK)); while (w!=v, n++; w=BijectionD(w, BijectionK)); n};
a368124(rmax=205) = {my (L=List()); for (r2=0, rmax^2, for (x=0, sqrtint(r2), my (y2=r2-x^2, y); if (issquare(y2, &y), if(x>=y, my (c=cycle([x, y])); if (setsearch(L, c)==0, print([c, [x, y], sqrt(x^2+y^2)], ", "); listput(L, c); listsort(L, 1)))))); L};
a368124() \\ Terms < 1000
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Hugo Pfoertner, Jan 01 2024
STATUS
approved