A354939 Row 9 of A354940: Numbers k for which A345992(k) = 9, divided by 9.
5, 7, 10, 14, 16, 19, 23, 25, 28, 32, 37, 41, 43, 46, 50, 59, 61, 64, 68, 73, 79, 82, 86, 91, 97, 100, 109, 113, 118, 122, 127, 131, 136, 145, 149, 151, 158, 163, 167, 169, 172, 181, 185, 194, 199, 212, 221, 223, 226, 235, 239, 241, 244, 253, 257, 262, 271, 277, 289, 293, 298, 302, 307, 311, 313, 316, 325, 331, 334
Offset: 1
Keywords
Programs
-
Mathematica
q[n_] := Module[{m = 1}, While[!Divisible[m*(m + 1), 9*n], m++]; GCD[9*n, m] == 9]; Select[Range[335], q] (* Amiram Eldar, Jun 17 2022 *)
-
PARI
A354939(n) = A354940sq(9,n); \\ See the program in A354940.
Comments