login
A354936
Row 6 of A354940: Numbers k for which A345992(k) = 6, divided by 6.
2
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
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.
Sequence in context: A016921 A331425 A260682 * A348932 A184521 A123843
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 15 2022
STATUS
approved