cp's OEIS Frontend

A083716 a(n) = integer part of (greatest prime <= n)/(greatest prime factor of n); a(1) = 1.

%I A083716 #17 Mar 04 2019 18:53:02
%S A083716 1,1,1,1,1,1,1,3,2,1,1,3,1,1,2,6,1,5,1,3,2,1,1,7,4,1,7,3,1,5,1,15,2,1,
%T A083716 4,10,1,1,2,7,1,5,1,3,8,1,1,15,6,9,2,3,1,17,4,7,2,1,1,11,1,1,8,30,4,5,
%U A083716 1,3,2,9,1,23,1,1,14,3,6,5,1,15,26,1,1,11,4,1,2,7,1,17,6,3,2,1,4,29,1,13,8
%N A083716 a(n) = integer part of (greatest prime <= n)/(greatest prime factor of n); a(1) = 1.
%C A083716 a(n) = floor(A007917(n)/A006530(n));
%C A083716 a(p) = 1 for primes p.
%H A083716 Robert Israel, <a href="/A083716/b083716.txt">Table of n, a(n) for n = 1..10000</a>
%p A083716 1,seq(floor(prevprime(n+1)/max(numtheory:-factorset(n))), n=2..100); # _Robert Israel_, Jun 13 2017
%t A083716 a[n_] := If[n == 1 || PrimeQ[n], 1, Floor[NextPrime[n, -1]/ FactorInteger[n][[-1, 1]]]];
%t A083716 Array[a, 100] (* _Jean-François Alcover_, Mar 04 2019 *)
%Y A083716 Cf. A006530, A007917.
%Y A083716 Cf. A083715, A083717, A083714, A083718.
%K A083716 nonn,look
%O A083716 1,8
%A A083716 _Reinhard Zumkeller_, May 04 2003