

A161656


The largest multiple of {the sum of the distinct prime divisors of n} that is <=n.


2



0, 2, 3, 4, 5, 5, 7, 8, 9, 7, 11, 10, 13, 9, 8, 16, 17, 15, 19, 14, 20, 13, 23, 20, 25, 15, 27, 27, 29, 30, 31, 32, 28, 19, 24, 35, 37, 21, 32, 35, 41, 36, 43, 39, 40, 25, 47, 45, 49, 49, 40, 45, 53, 50, 48, 54, 44, 31, 59, 60, 61, 33, 60, 64, 54, 64, 67, 57, 52, 70, 71, 70, 73
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

a(n)=n iff n belongs to A089352.  Ivan Neretin, May 25 2016


LINKS

Ivan Neretin, Table of n, a(n) for n = 1..10000


MAPLE

A161656 := proc(n)
local sd;
if n <= 1 then
0;
else
sd := A008472(n) ;
sd*floor(n/sd) ;
end if;
end proc: # R. J. Mathar, Mar 14 2014


MATHEMATICA

Join[{0}, Table[Floor[#1/#2]*#2 &[n, Plus @@ FactorInteger[n][[All, 1]]], {n, 2, 73}] ](* Ivan Neretin, May 25 2016 *)


CROSSREFS

Cf. A008472, A161657.
Sequence in context: A008475 A222416 A269524 * A306328 A225090 A162683
Adjacent sequences: A161653 A161654 A161655 * A161657 A161658 A161659


KEYWORD

nonn


AUTHOR

Leroy Quet, Jun 15 2009


EXTENSIONS

More terms from Sean A. Irvine, Sep 29 2009


STATUS

approved



