OFFSET
1,2
COMMENTS
A074695(a(n)) = 1.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
Select[Range[200], CoprimeQ[#, Floor[Sqrt[#]]^2]&] (* Harvey P. Dale, Jun 25 2017 *)
PROG
(Haskell)
a258613 n = a258613_list !! (n-1)
a258613_list = filter ((== 1) . a074695) [1..]
(PARI) isok(n) = gcd(n, sqrtint(n)^2) == 1; \\ Michel Marcus, Jun 06 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 05 2015
STATUS
approved