cp's OEIS Frontend

A326055 a(n) = n - {the largest square that divides n}.

%I A326055 #11 Apr 21 2020 11:07:19
%S A326055 0,1,2,0,4,5,6,4,0,9,10,8,12,13,14,0,16,9,18,16,20,21,22,20,0,25,18,
%T A326055 24,28,29,30,16,32,33,34,0,36,37,38,36,40,41,42,40,36,45,46,32,0,25,
%U A326055 50,48,52,45,54,52,56,57,58,56,60,61,54,0,64,65,66,64,68,69,70,36,72,73,50,72,76,77,78,64,0,81,82,80,84
%N A326055 a(n) = n - {the largest square that divides n}.
%H A326055 Antti Karttunen, <a href="/A326055/b326055.txt">Table of n, a(n) for n = 1..20000</a>
%F A326055 a(n) = n - A008833(n).
%F A326055 a(n) = A326054(n) + A033879(n).
%F A326055 a(A000203(n)) = A326040(n).
%t A326055 Table[n-Max[Select[Divisors[n],IntegerQ[Sqrt[#]]&]],{n,100}] (* _Harvey P. Dale_, Apr 21 2020 *)
%o A326055 (PARI)
%o A326055 A008833(n) = (n/core(n));
%o A326055 A326055(n) = (n-A008833(n));
%Y A326055 Cf. A000203, A000290, A008833, A033879, A326040, A326054, A326056.
%K A326055 nonn
%O A326055 1,3
%A A326055 _Antti Karttunen_, Jun 05 2019