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

4, 5, 8, 11, 15, 19, 22, 25, 29, 32, 39, 43, 47, 50, 53, 57, 61, 64, 67, 71, 78, 81, 89, 92, 95, 99, 103, 106, 109, 113, 127, 131, 134, 137, 141, 151, 155, 162, 169, 173, 176, 179, 183, 190, 193, 197, 211, 218, 229, 232, 239, 243, 256, 257, 263, 267, 271, 274, 277, 281, 291, 295, 302, 309, 313, 316, 323, 337, 344

Offset

1,1

Comments

Apparently, all terms are either of the form 7k+1 (in A016993), 7k+4 (A017029) or 7k+5 (A017041).

Links

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

Mathematica

q[n_] := Module[{m = 1}, While[!Divisible[m*(m + 1), 7*n], m++]; GCD[7*n, m] == 7]; Select[Range[345], q] (* Amiram Eldar, Jun 17 2022 *)

Prog

(PARI) A354937(n) = A354940sq(7, n);

Crossrefs

Row 7 of A354940.

Cf. A016993, A017029, A017041, A344005, A345992.

Sequence in context: A293790 A190778 A117573 * A256535 A249669 A144062

Adjacent sequences: A354934 A354935 A354936 * A354938 A354939 A354940

Keyword

nonn

Author

Antti Karttunen, Jun 15 2022

Status

approved