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