A304650 Number of ways to write n as a product of two positive integers, neither of which is a perfect power.

0, 0, 0, 1, 0, 2, 0, 0, 1, 2, 0, 2, 0, 2, 2, 0, 0, 2, 0, 2, 2, 2, 0, 2, 1, 2, 0, 2, 0, 6, 0, 0, 2, 2, 2, 5, 0, 2, 2, 2, 0, 6, 0, 2, 2, 2, 0, 2, 1, 2, 2, 2, 0, 2, 2, 2, 2, 2, 0, 8, 0, 2, 2, 0, 2, 6, 0, 2, 2, 6, 0, 4, 0, 2, 2, 2, 2, 6, 0, 2, 0, 2, 0, 8, 2, 2, 2, 2, 0, 8, 2, 2, 2, 2, 2, 2, 0, 2

Offset

1,6

Links

Table of n, a(n) for n=1..98.

Example

The a(60) = 8 ways to write 60 as a product of two numbers, neither of which is a perfect power, are 2*30, 3*20, 5*12, 6*10, 10*6, 12*5, 20*3, 30*2.

Mathematica

radQ[n_]:=And[n>1, GCD@@FactorInteger[n][[All, 2]]===1];
Table[Length[Select[Divisors[n], radQ[#]&&radQ[n/#]&]], {n, 100}]

Prog

(PARI) ispow(n) = (n==1) || ispower(n);
a(n) = sumdiv(n, d, !ispow(d) && !ispow(n/d)); \\ Michel Marcus, May 17 2018

Crossrefs

Cf. A000005, A001055, A007427, A007916, A034444, A045778, A162247, A183096, A281116, A301700, A303386, A303707, A304649.

Sequence in context: A025867 A078646 A264405 * A360670 A347992 A317581

Adjacent sequences: A304647 A304648 A304649 * A304651 A304652 A304653

Keyword

nonn

Author

Gus Wiseman, May 15 2018

Status

approved