|
%I #9 Aug 12 2018 19:21:36
%S 1,1,1,4,1,2,1,4,9,1,1,3,1,1,3,16,1,2,1,4,1,2,1,8,25,1,1,1,1,5,1,1,1,
%T 1,5,36,1,2,3,4,1,6,1,4,9,2,1,12,49,1,1,1,1,1,1,7,1,1,1,1,1,1,7,64,1,
%U 2,1,4,1,2,1,8,1,2,1,4,1,2,1,16,81,1,1,3,1,1,3,1,1,9,1,1,3,1,1,3,1,1,9,100
%N Greatest common divisor of n and floor(n^(1/2))^2.
%C a(n) = n iff n is a square.
%C a(A258613(n)) = 1; a(A258614(n)) > 1. - _Reinhard Zumkeller_, Jun 05 2015
%H Reinhard Zumkeller, <a href="/A074695/b074695.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = GCD(n, A048760(n)).
%t Table[GCD[n,Floor[Sqrt[n]]^2],{n,100}] (* _Harvey P. Dale_, Aug 12 2018 *)
%o (Haskell)
%o a074695 n = gcd n $ a048760 n -- _Reinhard Zumkeller_, Jun 05 2015
%Y Cf. A000196, A000290, A048760.
%Y Cf. A258613, A258614.
%K nonn
%O 1,4
%A _Reinhard Zumkeller_, Sep 03 2002
|
