This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A119843 A119842(n) sets a new record. 2
 1, 36, 72, 120, 144, 180, 420, 720, 1080, 1680, 2520, 6300, 9240 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS a(9) is greater than 960. LINKS MATHEMATICA b[s_, t_] := b[s, t] = If[Length[s] < 1, 1, Sum[If[Mod[PrimeOmega[x], 2] == 1 - t && Length[Select[s, Mod[#, x] == 0 &]] == 1, b[s~Complement~{x}, 1 - t], 0], {x, s}]]; a[n_] := a[n] = Module[{l, m}, l = Sort[ FactorInteger[n], #1[[2]] > #2[[2]] &]; m = Product[Prime[i]^l[[i]][[2]], {i, 1, Length[l]}]; b[Divisors[m][[2 ;; -2]], Mod[PrimeOmega[m], 2]]]; Reap[For[record = 0; k = 1, k < 10^4, k++, If[a[k] > record, record = a[k]; Print[k, " ", a[k]]; Sow[k]]]][[2, 1]] (* Jean-François Alcover, Mar 03 2016, after Alois P. Heinz *) CROSSREFS Subset of A119845. Cf. A119844. Sequence in context: A044483 A031479 A153642 * A322657 A066216 A032497 Adjacent sequences:  A119840 A119841 A119842 * A119844 A119845 A119846 KEYWORD nonn AUTHOR Antti Karttunen, Jun 04 2006 EXTENSIONS a(9)-a(13) from Alois P. Heinz, Feb 26 2016 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 19 14:54 EDT 2019. Contains 328223 sequences. (Running on oeis4.)