OFFSET
0,18
LINKS
Karl-Heinz Hofmann, Table of n, a(n) for n = 0..10000
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] && UnsameQ @@ # &)]; Array[a, 100, 0] (* Amiram Eldar, May 05 2023 *)
PROG
(Python)
import numpy
from math import isqrt
A072103 = []
for m in range(2, isqrt(10001)+1):
k = 2
while m**k < 10001:
A072103.append(m**k)
k += 1
A362424 = numpy.zeros(10001+1, dtype="i4")
a = 0
while A001597[a] < 10001 // 2:
b = a + 1
b += 1
a += 1
print(list(A362424[0:92])) # Karl-Heinz Hofmann, Sep 16 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 19 2023
STATUS
approved