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