OFFSET
1,8
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
1, seq(floor(prevprime(n+1)/max(numtheory:-factorset(n))), n=2..100); # Robert Israel, Jun 13 2017
MATHEMATICA
a[n_] := If[n == 1 || PrimeQ[n], 1, Floor[NextPrime[n, -1]/ FactorInteger[n][[-1, 1]]]];
Array[a, 100] (* Jean-François Alcover, Mar 04 2019 *)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Reinhard Zumkeller, May 04 2003
STATUS
approved