OFFSET
1,4
COMMENTS
a(n) = n iff n is a square.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = GCD(n, A048760(n)).
MATHEMATICA
Table[GCD[n, Floor[Sqrt[n]]^2], {n, 100}] (* Harvey P. Dale, Aug 12 2018 *)
PROG
(Haskell)
a074695 n = gcd n $ a048760 n -- Reinhard Zumkeller, Jun 05 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 03 2002
STATUS
approved