|
%I #9 Jun 17 2022 14:52:33
%S 5,7,10,14,16,19,23,25,28,32,37,41,43,46,50,59,61,64,68,73,79,82,86,
%T 91,97,100,109,113,118,122,127,131,136,145,149,151,158,163,167,169,
%U 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
%N Row 9 of A354940: Numbers k for which A345992(k) = 9, divided by 9.
%C Apparently, all terms are either of the form 9k+1 (in A017173), or 9k+5 (in A017221), or 9k+7 (in A017245).
%t 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 *)
%o (PARI) A354939(n) = A354940sq(9,n); \\ See the program in A354940.
%Y Row 9 of A354940.
%Y Cf. A017173, A017221, A017245, A344005, A345992.
%K nonn
%O 1,1
%A _Antti Karttunen_, Jun 15 2022
|
