OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[n_] := Boole[(g = GCD @@ FactorInteger[n][[;; , 2]]) > 1] * g; Array[a, 100] (* Amiram Eldar, Aug 13 2024 *)
PROG
(PARI) r(n) = for(j=1, n, print1(ispower(j)", "));
r(100)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 11 2007
STATUS
approved