# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a120358 Showing 1-1 of 1 %I A120358 #12 Aug 02 2024 01:55:23 %S A120358 2,18,72,450,1250,4050,16200,52488,56448,64800,71442,101250,198450, %T A120358 235298,285768,328050,405000,793800,1036800,1312200,1620000,1786050, %U A120358 3175200,4572288,4961250,5248800,7144200,12700800,14289858,15059072,16074450,19845000,24012450,25920000,28576800 %N A120358 Even refactorable numbers k such that the number r of odd divisors and the number s of even divisors are both odd divisors of k and k is the first number for which the triple (r,s,t) occurs, where t is the number of divisors of k. %C A120358 Note that s is necessarily a multiple of r. %e A120358 a(2) = 18 since r = 3, s = 3 and t = r+s = 6. %t A120358 seq[kmax_] := Module[{triples = {}, v = {}, r, s, t}, Do[t = DivisorSigma[0, k]; r = t - DivisorSigma[0, k/2]; s = t - r; If[OddQ[r] && OddQ[s] && FreeQ[triples, {r, s, t}] && Divisible[k, t] && Divisible[k, r] && Divisible[k, s], AppendTo[v, k]; AppendTo[triples, {r, s, t}]], {k, 2, kmax, 2}]; v]; seq[10^6] (* _Amiram Eldar_, Aug 01 2024 *) %Y A120358 Cf. A000005, A001227, A033950, A049439, A057265, A120359, A120361, A183063. %K A120358 nonn %O A120358 1,1 %A A120358 _Walter Kehowski_, Jun 25 2006 %E A120358 a(27)-a(35) from _Amiram Eldar_, Aug 01 2024 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE