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

5, 9, 13, 17, 21, 25, 29, 37, 41, 49, 53, 57, 61, 73, 81, 85, 89, 93, 97, 101, 109, 113, 117, 121, 125, 129, 137, 149, 157, 169, 173, 181, 185, 193, 197, 201, 217, 229, 233, 237, 241, 253, 257, 269, 277, 281, 289, 293, 297, 301, 309, 313, 317, 337, 341, 349, 353, 361, 373, 381, 389, 397, 401, 409, 413, 417, 421, 425

Offset

1,1

Comments

Apparently a subsequence of A016813.

Links

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

Mathematica

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

Prog

(PARI) A354934(n) = A354940sq(4, n);

Crossrefs

Row 4 of A354940.

Cf. A016813, A344005, A345992.

Sequence in context: A314671 A314672 A314673 * A314674 A314675 A314676

Adjacent sequences: A354931 A354932 A354933 * A354935 A354936 A354937

Keyword

nonn

Author

Antti Karttunen, Jun 15 2022

Status

approved