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