OFFSET
1,1
MATHEMATICA
q[n_] := Module[{m = 1}, While[!Divisible[m*(m + 1), 8*n], m++]; GCD[8*n, m] == 8]; Select[Range[420], q] (* Amiram Eldar, Jun 17 2022 *)
PROG
(PARI) A354938(n) = A354940sq(8, n);
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 15 2022
STATUS
approved