login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A327658
Number of factorizations of n that are empty or whose factors have a common divisor > 1.
3
1, 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, 7, 1, 1, 2, 2, 1, 1, 1, 7, 5, 1, 1, 3, 1, 1, 1
OFFSET
1,4
COMMENTS
First differs from A319786 at a(900) = 11, A319786(900) = 12.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798. Numbers whose prime indices have a common divisor > 1 are listed in A318978.
EXAMPLE
The a(120) = 7 factorizations:
(120)
(2*60)
(4*30)
(6*20)
(10*12)
(2*2*30)
(2*6*10)
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], #=={}||GCD@@#!=1&]], {n, 100}]
CROSSREFS
See link for additional cross-references.
Sequence in context: A327012 A351219 A328855 * A319786 A321271 A305193
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 21 2019
STATUS
approved