The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A162296 Sum of divisors of n that have a square factor. 23

%I

%S 0,0,0,4,0,0,0,12,9,0,0,16,0,0,0,28,0,27,0,24,0,0,0,48,25,0,36,32,0,0,

%T 0,60,0,0,0,79,0,0,0,72,0,0,0,48,54,0,0,112,49,75,0,56,0,108,0,96,0,0,

%U 0,96,0,0,72,124,0,0,0,72,0,0,0,183,0,0,100,80,0,0,0,168,117,0,0,128,0,0

%N Sum of divisors of n that have a square factor.

%C Note that 1 does not have a square factor. - _Antti Karttunen_, Nov 20 2017

%H Antti Karttunen, <a href="/A162296/b162296.txt">Table of n, a(n) for n = 1..16384</a>

%H <a href="/index/Su#sums_of_divisors">Index entries for sequences related to sums of divisors</a>

%F a(n) + A048250(n) = A000203(n). - _Antti Karttunen_, Nov 20 2017

%e a(8) = 12 = 4 + 8.

%t Array[DivisorSum[#, # &, # (1 - MoebiusMu[#]^2) == # &] &, 86] (* _Michael De Vlieger_, Nov 20 2017 *)

%t a[1]=0; a[n_] := DivisorSigma[1, n] - Times@@(1+FactorInteger[n][[;; , 1]]); Array[a,86] (* _Amiram Eldar_, Dec 20 2018 *)

%o (PARI) a(n)=sumdiv(n,d,d*(1-moebius(d)^2)); v=vector(300,n,a(n))

%Y Cf. A000203, A005117, A048250.

%K easy,nonn

%O 1,4

%A _Joerg Arndt_, Jun 30 2009

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 1 04:57 EDT 2020. Contains 334758 sequences. (Running on oeis4.)