A362422 Number of partitions of n into 2 perfect powers (A001597).

0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 2, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 2, 1, 1, 2, 1, 0, 0, 2, 2, 0, 1, 1, 1, 0, 0, 1, 0, 2, 0, 2, 1, 1, 0, 0, 2, 1, 1, 0, 1, 0, 1, 1, 2, 0, 0, 2, 0, 0, 0, 2, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 2, 0, 0, 0, 2, 1, 1

Offset

0,18

Links

Table of n, a(n) for n=0..91.

Eric Weisstein's World of Mathematics, Perfect Power.

Mathematica

perfectPowerQ[n_] := n == 1 || GCD @@ FactorInteger[n][[;; , 2]] > 1; a[n_] := Count[IntegerPartitions[n, {2}], _?(AllTrue[#, perfectPowerQ] &)]; Array[a, 100, 0] (* Amiram Eldar, May 05 2023 *)

Crossrefs

Cf. A001597, A362423.

Sequence in context: A061007 A060838 A206567 * A085252 A250214 A073423

Adjacent sequences: A362419 A362420 A362421 * A362423 A362424 A362425

Keyword

nonn

Author

Ilya Gutkovskiy, Apr 19 2023

Status

approved