A354935 Row 5 of A354940: Numbers k for which A345992(k) = 5, divided by 5.
3, 6, 8, 11, 13, 16, 23, 26, 31, 36, 41, 43, 46, 51, 53, 56, 61, 71, 73, 81, 83, 86, 91, 96, 101, 103, 106, 113, 116, 121, 128, 131, 141, 146, 151, 163, 166, 171, 173, 176, 181, 191, 193, 196, 206, 211, 223, 226, 233, 241, 243, 251, 256, 263, 271, 276, 281, 283, 293, 301, 311, 313, 321, 326, 331, 343, 346, 353, 356, 361
Offset: 1
Keywords
Programs
-
Mathematica
q[n_] := Module[{m = 1}, While[!Divisible[m*(m + 1), 5*n], m++]; GCD[5*n, m] == 5]; Select[Range[360], q] (* Amiram Eldar, Jun 17 2022 *)
-
PARI
A354935(n) = A354940sq(5,n);
Comments