A075802 - OEIS

This site is supported by donations to The OEIS Foundation.

A075802

Characteristic function of perfect powers, A001597.

1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0 (list; graph; refs; listen; history; internal format)

	OFFSET	`1,1`
	COMMENTS	`a(n) = A057427(A052409(n) - 1);` `a(A001597(n))=1 and a(A007916(n))=0.` `Not multiplicative: for example, a(8)=a(9)=1, but a(72)=0. - Franklin T. Adams-Watters, Sep 09 2005`
	LINKS	`Index entries for characteristic functions` `Eric Weisstein's World of Mathematics, Perfect Powers.`
	MATHEMATICA	`a[n_] := Boole[GCD @@ FactorInteger[n][[All, 2]] > 1]; a[1] = 1; Table[a[n], {n, 1, 105}] (* From Jean-François Alcover, Dec 12 2011 *)`
	CROSSREFS	`Cf. A112526.` `Sequence in context: A014999 A065803 A170956 * A112526 A120523 A030315` `Adjacent sequences: A075799 A075800 A075801 * A075803 A075804 A075805`
	KEYWORD	`nonn`
	AUTHOR	`Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Oct 13 2002`

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

Last modified February 14 13:08 EST 2012. Contains 205623 sequences.