login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A071327 Sum of squared primes dividing n. 2

%I

%S 0,0,0,4,0,0,0,4,9,0,0,4,0,0,0,4,0,9,0,4,0,0,0,4,25,0,9,4,0,0,0,4,0,0,

%T 0,13,0,0,0,4,0,0,0,4,9,0,0,4,49,25,0,4,0,9,0,4,0,0,0,4,0,0,9,4,0,0,0,

%U 4,0,0,0,13,0,0,25,4,0,0,0,4,9,0,0,4,0,0,0,4,0,9,0

%N Sum of squared primes dividing n.

%H Antti Karttunen, <a href="/A071327/b071327.txt">Table of n, a(n) for n = 1..65537</a>

%F a(n) = Sum_{d|n} A010052(d)*A010051(A000196(d))*d. - _Antti Karttunen_, Nov 18 2017

%t Array[DivisorSum[#, # &, PrimeQ@ Sqrt@ # &] &, 91] (* _Michael De Vlieger_, Nov 18 2017 *)

%o (PARI) A071327(n) = { my(r); sumdiv(n,d,(issquare(d,&r)&&isprime(r)) * d); } \\ _Antti Karttunen_, Nov 19 2017

%Y Cf. A010051, A010052, A063958, A056170, A071326.

%K nonn

%O 1,4

%A _Reinhard Zumkeller_, May 18 2002

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 20 12:37 EST 2018. Contains 317402 sequences. (Running on oeis4.)