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
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 15 2009
EXTENSIONS
More terms from Sean A. Irvine, Sep 29 2009
STATUS
approved