OFFSET
1,2
COMMENTS
LINKS
Freimut Marschner, Table of n, a(n) for n = 1..429
Wikipedia, Arithmetic derivative
Wikipedia, p-derivation
EXAMPLE
(2*3)’ = 1*3+2*1 = 5; (5)’ = 1; (2^2)’ = 2*2^1 = 2*2 = 4.
MAPLE
with(numtheory); P:=proc(q) local a, b, c, p, n;
for n from 1 to q do a:=ithprime(n)*ithprime(n+1);
b:=a*add(op(2, p)/op(1, p), p=ifactors(a)[2]);
c:=b*add(op(2, p)/op(1, p), p=ifactors(b)[2]);
print(c); od; end: P(10^3); # Paolo P. Lava, Apr 01 2014
PROG
(Haskell)
a240052 = a068346 . a006094 -- Reinhard Zumkeller, Apr 15 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Freimut Marschner, Mar 31 2014
STATUS
approved