

A131116


Record values in A003415 (arithmetic derivative).


3



0, 1, 4, 5, 12, 16, 32, 44, 80, 112, 192, 272, 448, 640, 1024, 1472, 2304, 2368, 3328, 3392, 5120, 5376, 7424, 7744, 11264, 12032, 16384, 16640, 17408, 24576, 26624, 35840, 36864, 38656, 53248, 58368, 77824, 80896, 84992, 114688, 126976, 167936
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


COMMENTS

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


LINKS

Reinhard Zumkeller and Donovan Johnson, Table of n, a(n) for n = 1..250 (first 100 terms from Reinhard Zumkeller)


MAPLE

with(numtheory);
A131117:=proc(i)
local a, b, n, p, pfs;
b:=1;
for n from 0 to i do
pfs:=ifactors(n)[2]; a:=n*add(op(2, p)/op(1, p), p=pfs);
if a>b then b:=a; print(a); fi;
od; end: # Paolo P. Lava, Sep 28 2012


CROSSREFS

Sequence in context: A212114 A269227 A103650 * A261692 A131328 A054451
Adjacent sequences: A131113 A131114 A131115 * A131117 A131118 A131119


KEYWORD

nonn


AUTHOR

Reinhard Zumkeller, Jun 17 2007


STATUS

approved



