The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A050325 Number of factorizations into squarefree factors indexed by prime signatures: A050320(A025487). 3
 1, 1, 1, 2, 1, 2, 1, 2, 5, 1, 3, 2, 6, 1, 3, 2, 6, 1, 3, 9, 2, 15, 4, 6, 1, 3, 10, 2, 21, 4, 6, 1, 3, 10, 2, 22, 4, 16, 6, 1, 13, 3, 35, 5, 10, 2, 22, 4, 19, 6, 1, 14, 3, 52, 41, 5, 10, 2, 22, 4, 20, 6, 1, 14, 3, 83, 42, 5, 26, 10, 2, 66, 17, 22, 4, 20, 55, 6, 6, 1, 14, 3, 93 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,4 LINKS MAPLE read(transforms): a050320 := BFILETOLIST("b050320.txt") : for n from 1 do     a050325 := a050320[A025487(n)] ;     printf("%d %d\n", n, a050325) ; end do: # R. J. Mathar, May 26 2017 MATHEMATICA a050320 = Cases[Import["https://oeis.org/A050320/b050320.txt", "Table"], {_, _}][[All, 2]]; lpe = {}; a025487 = {1}; Do[pe = Sort[FactorInteger[n][[All, 2]]]; If[FreeQ[lpe, pe], AppendTo[lpe, pe]; AppendTo[a025487, n]], {n, 2, 10^4}]; A050325[n_] := a050320[[a025487[[n]]]]; Array[A050325, 83] (* Jean-François Alcover, Apr 06 2020 *) CROSSREFS Sequence in context: A197945 A099986 A166478 * A332510 A001314 A020733 Adjacent sequences:  A050322 A050323 A050324 * A050326 A050327 A050328 KEYWORD nonn AUTHOR Christian G. Bower, Oct 15 1999 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 September 21 00:38 EDT 2020. Contains 337265 sequences. (Running on oeis4.)