login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A328769 The second primorial based variant of arithmetic derivative: a(p) = A034386(p) for p prime, a(u*v) = a(u)*v + u*a(v), with a(0) = a(1) = 0. 6
0, 0, 2, 6, 8, 30, 18, 210, 24, 36, 70, 2310, 48, 30030, 434, 120, 64, 510510, 90, 9699690, 160, 672, 4642, 223092870, 120, 300, 60086, 162, 896, 6469693230, 270, 200560490130, 160, 6996, 1021054, 1260, 216, 7420738134810, 19399418, 90168, 360, 304250263527210, 1386, 13082761331670030, 9328, 450, 446185786, 614889782588491410, 288, 2940, 650, 1531632 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
FORMULA
a(n) = n * Sum e_j * (p_j)#/p_j for n = Product p_j^e_j with (p_j)# = A034386(p_j).
A276150(a(n)) = A328772(n).
PROG
(PARI)
A034386(n) = factorback(primes(primepi(n)));
A328769(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]*A034386(f[i, 1])/f[i, 1]));
(PARI)
A002110(n) = prod(i=1, n, prime(i));
A328769(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]*A002110(primepi(f[i, 1]))/f[i, 1]));
CROSSREFS
Sequence in context: A140539 A056188 A020696 * A290249 A321471 A216762
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 28 2019
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 24 04:14 EDT 2024. Contains 371918 sequences. (Running on oeis4.)