cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A305150 Number of factorizations of n into distinct, pairwise indivisible factors greater than 1.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 2, 1, 1, 2, 1, 2, 2, 2, 1, 3, 1, 2, 1, 2, 1, 5, 1, 1, 2, 2, 2, 2, 1, 2, 2, 3, 1, 5, 1, 2, 2, 2, 1, 3, 1, 2, 2, 2, 1, 3, 2, 3, 2, 2, 1, 6, 1, 2, 2, 1, 2, 5, 1, 2, 2, 5, 1, 3, 1, 2, 2, 2, 2, 5, 1, 3, 1, 2, 1, 6, 2, 2, 2, 3, 1, 6, 2, 2, 2, 2, 2, 4, 1, 2, 2, 2, 1, 5, 1, 3, 5
Offset: 1

Views

Author

Gus Wiseman, May 26 2018

Keywords

Examples

			The a(60) = 6 factorizations are (3 * 4 * 5), (3 * 20), (4 * 15), (5 * 12), (6 * 10), (60). Missing from this list are (2 * 3 * 10), (2 * 5 * 6), (2 * 30).

Links

Crossrefs

Cf. A001055, A001970, A007716, A045778, A162247, A259936, A275024, A285572, A281113, A281116, A303386, A303431, A305001, A305148, A305149, A305253.

Programs

  • Mathematica
    facs[n_] := If[n <= 1, {{}}, Join@@Table[Map[Prepend[#, d] &, Select[facs[n/d], Min@@ # >= d &]], {d, Rest[Divisors[n]]}]]; Table[Length[Select[facs[n], UnsameQ@@ # && Select[Tuples[Union[#], 2], UnsameQ@@ # && Divisible@@ # &] == {} &]], {n, 100}]
  • PARI
    A305150(n, m=n, facs=List([])) = if(1==n, 1, my(s=0, newfacs); fordiv(n, d, if((d>1)&&(d<=m)&&factorback(apply(x -> (x%d),Vec(facs))), newfacs = List(facs); listput(newfacs,d); s += A305150(n/d, d-1, newfacs))); (s)); \\ Antti Karttunen, Dec 06 2018

Formula

a(n) <= A045778(n) <= A001055(n). - Antti Karttunen, Dec 06 2018

Extensions

More terms from Antti Karttunen, Dec 06 2018

A321271 Number of connected factorizations of n into positive integers > 1 with z-density -1.

Original entry on oeis.org

0, 1, 1, 2, 1, 1, 1, 3, 2, 1, 1, 2, 1, 1, 1, 5, 1, 2, 1, 2, 1, 1, 1, 4, 2, 1, 3, 2, 1, 1, 1, 7, 1, 1, 1, 4, 1, 1, 1, 4, 1, 1, 1, 2, 2, 1, 1, 7, 2, 2, 1, 2, 1, 4, 1, 4, 1, 1, 1, 3, 1, 1, 2, 11, 1, 1, 1, 2, 1, 1, 1, 8, 1, 1, 2, 2, 1, 1, 1, 7, 5, 1, 1, 3, 1, 1, 1
Offset: 1

Views

Author

Gus Wiseman, Nov 01 2018

Keywords

Comments

These are z-trees (A303837, A305081, A305253, A321279) where we relax the requirement of pairwise indivisibility.
Given a finite multiset S of positive integers greater than 1, let G(S) be the simple labeled graph with vertices the distinct elements of S and with edges between any two vertices that have a common divisor greater than 1. For example, G({6,14,15,35}) is a 4-cycle. Then S is said to be connected if G(S) is a connected graph.
The z-density of a factorization S is defined to be Sum_{s in S} (omega(s) - 1) - omega(n), where omega = A001221 and n is the product of S.

Examples

			The a(72) = 8 factorizations are (2*2*3*6), (2*2*18), (2*3*12), (2*36), (3*4*6), (3*24), (4*18), (72). Missing from this list but still connected are (2*6*6),(6*12).

Crossrefs

Cf. A001055, A001221, A030019, A286518, A303837, A304118, A304382, A305052, A305081, A305193, A305253, A319786, A321229, A321253.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
zsm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[Less@@#,GCD@@s[[#]]]>1&]},If[c=={},s,zsm[Union[Append[Delete[s,List/@c[[1]]],LCM@@s[[c[[1]]]]]]]]];
zensity[s_]:=Total[(PrimeNu[#]-1&)/@s]-PrimeNu[Times@@s];
Table[Length[Select[facs[n],And[zensity[#]==-1,Length[zsm[#]]==1]&]],{n,100}]

A305254 Number of factorizations f of n into factors greater than 1 such that the graph of f is a forest.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 2, 5, 1, 4, 1, 4, 2, 2, 1, 7, 2, 2, 3, 4, 1, 5, 1, 7, 2, 2, 2, 8, 1, 2, 2, 7, 1, 5, 1, 4, 4, 2, 1, 12, 2, 4, 2, 4, 1, 7, 2, 7, 2, 2, 1, 11, 1, 2, 4, 11, 2, 5, 1, 4, 2, 5, 1, 14, 1, 2, 4, 4, 2, 5, 1, 12, 5, 2, 1, 11, 2
Offset: 1

Views

Author

Gus Wiseman, May 28 2018

Keywords

Comments

Given a factorization f consisting of positive integers greater than one, let G(F) be a multigraph with one vertex for each factor and n edges between any two vertices with n common divisors greater than 1. For example, G(6,14,15,35) is a 4-cycle; G(6,12) is a 2-cycle because 6 and 12 have multiple common divisors. This sequence counts factorizations f such that G(f) is a forest, meaning it has no cycles. [Comment edited by Robert Munafo, Mar 24 2024]

Examples

			The a(72) = 14 factorizations:
     (72)
    (2*36)     (3*24)    (4*18)    (8*9)
   (2*2*18)   (2*3*12)   (2*4*9)  (3*3*8) (3*4*6)
   (2*2*2*9)  (2*2*3*6) (2*3*3*4)
  (2*2*2*3*3)
not counted: (2*6*6) because 6 and 6 share multiple divisors; likewise (6*12) because 6 and 12 share multiple divisors.

Crossrefs

Cf. A001970, A048143, A281116, A285572, A286518, A286520, A303386, A304714, A304716, A305149, A305193, A305253.

Programs

  • Mathematica
    zsm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[Less@@#,GCD@@s[[#]]]>1&]},If[c=={},s,zsm[Union[Append[Delete[s,List/@c[[1]]],LCM@@s[[c[[1]]]]]]]]];
zensity[s_]:=Total[(PrimeNu[#]-1&)/@s]-PrimeNu[LCM@@s];
Table[Length[Select[facs[n],Function[f,And@@(zensity[Select[f,Function[x,Divisible[#,x]]]]==-1&/@zsm[f])]]],{n,200}]

Extensions

Extensive clarification by Robert Munafo, Mar 22 2024
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.