A086410 - OEIS

%I #15 Feb 05 2020 08:53:38

%S 1,2,3,2,2,2,3,2,2,2,2,3,2,2,2,2,2,2,3,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,

%T 2,2,3,2,2,2,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2,

%U 2,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2

%N Smallest prime factor of 3-smooth numbers, with a(1)=1.

%H Amiram Eldar, <a href="/A086410/b086410.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A020639(A003586(n));

%F a(n) <= A086411(n) <= 3.

%F a(A033845(n)) = A086411(A033845(n))-1; a(A006899(n)) = A086411(A006899(n)). - _Reinhard Zumkeller_, Sep 25 2008

%t Reap[For[n = 1, n <= 2*10^5, n++, If[EulerPhi[6*n] == 2*n, Sow[ FactorInteger[n][[1, 1]]]]]][[2, 1]] (* _Jean-François Alcover_, Sep 02 2016 *)

%Y Cf. A003586, A006899, A020639, A033845, A086411.

%K nonn,nice

%O 1,2

%A _Reinhard Zumkeller_, Jul 18 2003