The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A131116

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A131116

Record values in A003415 (arithmetic derivative).
(history; published version)

#15 by Joerg Arndt at Mon Feb 26 02:01:11 EST 2024

STATUS

editing

approved

#14 by Paolo P. Lava at Sun Feb 25 15:46:57 EST 2024

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

STATUS

approved

editing

#13 by OEIS Server at Tue Oct 02 00:51:45 EDT 2012

LINKS

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

#12 by T. D. Noe at Tue Oct 02 00:51:45 EDT 2012

STATUS

proposed

approved

Discussion

Tue Oct 02

00:51

OEIS Server: Installed new b-file as b131116.txt.  Old b-file is now b131116_1.txt.

#11 by Donovan Johnson at Mon Oct 01 23:04:45 EDT 2012

STATUS

editing

proposed

#10 by Donovan Johnson at Mon Oct 01 23:01:17 EDT 2012

LINKS

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

STATUS

approved

editing

#9 by Bruno Berselli at Fri Sep 28 08:06:54 EDT 2012

STATUS

editing

approved

#8 by Bruno Berselli at Fri Sep 28 08:06:47 EDT 2012

MAPLE

od; end: # _Paolo P. Lava - _, Sep 28 2012.

STATUS

proposed

editing

#7 by Paolo P. Lava at Fri Sep 28 07:31:25 EDT 2012

STATUS

editing

proposed

#6 by Paolo P. Lava at Fri Sep 28 07:31:19 EDT 2012

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.

STATUS

approved

editing