OFFSET
1,2
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..10000
MATHEMATICA
A340699[n_] :=
First @@ Position[
Join[{1},
Select[Range[n^3], GCD @@ FactorInteger[#][[All, 2]] > 1 &]],
n^3];
Table[A340699[n], {n, 1, 57}] (* Robert P. P. McKone, Jan 17 2021 *)
PROG
(PARI) ispwr(n) = ispower(n) || (n==1); \\ A001597
Vec(select(x->ispower(x, 3), select(ispwr, [1..2*10^5]), 1)) \\ Michel Marcus, Jan 18 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Jan 17 2021
STATUS
approved