%I #7 Jun 06 2019 21:59:07
%S 0,1,2,-1,4,5,6,3,-1,9,10,7,12,13,14,-5,16,8,18,15,20,21,22,19,-1,25,
%T 17,23,28,29,30,11,32,33,34,-14,36,37,38,35,40,41,42,39,35,45,46,27,
%U -1,24,50,47,52,44,54,51,56,57,58,55,60,61,53,-21,64,65,66,63,68,69,70,22,72,73,49,71,76,77,78,59,-10,81,82,79
%N a(n) = n - {the sum of square divisors of n}.
%H Antti Karttunen, <a href="/A326058/b326058.txt">Table of n, a(n) for n = 1..20000</a>
%F a(n) = n - A035316(n).
%F a(n) = A033879(n) + A326059(n).
%o (PARI)
%o A035316(n) = sumdiv(n,d,issquare(d)*d);
%o A326058(n) = (n-A035316(n));
%Y Cf. A033879, A035316, A326059, A326060.
%K sign
%O 1,3
%A _Antti Karttunen_, Jun 06 2019
|