[go: up one dir, main page]

login
A354937
Row 7 of A354940: Numbers k for which A345992(k) = 7, divided by 7.
2
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).
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 15 2022
STATUS
approved