OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
A001597(17) = 144 = (3*2^2)^2 is not a term.
MATHEMATICA
q[n_] := n == 1 || Length[(u = Union[FactorInteger[n][[;; , 2]]])] == 1 && u[[1]] > 1; Select[Range[2000], q] (* Amiram Eldar, Jan 01 2022 *)
PROG
(PARI) is(n)=n==1 || (ispower(n, , &n) && issquarefree(n)) \\ Charles R Greathouse IV, Oct 16 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 06 2002
STATUS
approved