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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A131116 Record values in A003415 (arithmetic derivative). 3

%I

%S 0,1,4,5,12,16,32,44,80,112,192,272,448,640,1024,1472,2304,2368,3328,

%T 3392,5120,5376,7424,7744,11264,12032,16384,16640,17408,24576,26624,

%U 35840,36864,38656,53248,58368,77824,80896,84992,114688,126976,167936

%N Record values in A003415 (arithmetic derivative).

%C a(n)=A003415(A131117(n)) and A003415(m)<a(n) for m < A131117(n).

%H Reinhard Zumkeller and Donovan Johnson, <a href="/A131116/b131116.txt">Table of n, a(n) for n = 1..250</a> (first 100 terms from Reinhard Zumkeller)

%p with(numtheory);

%p A131117:=proc(i)

%p local a,b,n,p,pfs;

%p b:=-1;

%p for n from 0 to i do

%p pfs:=ifactors(n)[2]; a:=n*add(op(2,p)/op(1,p),p=pfs);

%p if a>b then b:=a; print(a); fi;

%p od; end: # _Paolo P. Lava_, Sep 28 2012

%K nonn

%O 1,3

%A _Reinhard Zumkeller_, Jun 17 2007

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 24 07:13 EST 2020. Contains 331189 sequences. (Running on oeis4.)