cp's OEIS Frontend

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

%I A161656 #19 May 26 2016 02:20:14
%S A161656 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,
%T A161656 27,29,30,31,32,28,19,24,35,37,21,32,35,41,36,43,39,40,25,47,45,49,49,
%U A161656 40,45,53,50,48,54,44,31,59,60,61,33,60,64,54,64,67,57,52,70,71,70,73
%N A161656 The largest multiple of {the sum of the distinct prime divisors of n} that is <=n.
%C A161656 a(n)=n iff n belongs to A089352. - _Ivan Neretin_, May 25 2016
%H A161656 Ivan Neretin, <a href="/A161656/b161656.txt">Table of n, a(n) for n = 1..10000</a>
%p A161656 A161656 := proc(n)
%p A161656     local sd;
%p A161656     if n <= 1 then
%p A161656         0;
%p A161656     else
%p A161656         sd := A008472(n) ;
%p A161656         sd*floor(n/sd) ;
%p A161656     end if;
%p A161656 end proc: # _R. J. Mathar_, Mar 14 2014
%t A161656 Join[{0}, Table[Floor[#1/#2]*#2 &[n, Plus @@ FactorInteger[n][[All, 1]]], {n, 2, 73}] ](* _Ivan Neretin_, May 25 2016 *)
%Y A161656 Cf. A008472, A161657.
%K A161656 nonn
%O A161656 1,2
%A A161656 _Leroy Quet_, Jun 15 2009
%E A161656 More terms from _Sean A. Irvine_, Sep 29 2009