A354936 Row 6 of A354940: Numbers k for which A345992(k) = 6, divided by 6.

7, 13, 19, 25, 31, 37, 43, 49, 61, 67, 73, 79, 97, 103, 109, 121, 127, 139, 151, 157, 163, 169, 181, 193, 199, 211, 223, 229, 241, 271, 277, 283, 289, 307, 313, 331, 337, 343, 349, 361, 367, 373, 379, 397, 409, 421, 433, 439, 457, 463, 487, 499, 523, 529, 541, 547, 571, 577, 601, 607, 613, 619, 625, 631, 643, 661

Offset: 1

Author

Antti Karttunen, Jun 15 2022

Keywords

• nonn

Crossrefs

Row 6 of A354940.

Apparently a subsequence of A016921.

Cf. A344005, A345992.

Programs

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 *)

PARI

A354936(n) = A354940sq(6,n);