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,1

Links

Table of n, a(n) for n=1..66.

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

Row 6 of A354940.

Apparently a subsequence of A016921.

Cf. A344005, A345992.

Sequence in context: A016921 A331425 A260682 * A348932 A184521 A123843

Adjacent sequences: A354933 A354934 A354935 * A354937 A354938 A354939

Keyword

nonn

Author

Antti Karttunen, Jun 15 2022

Status

approved