OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
First composite is 4, largest prime factor is 2, so a(1)=2.
MAPLE
map(t -> max(numtheory:-factorset(t)), remove(isprime, [$2..10^3])); # Robert Israel, Aug 10 2014
MATHEMATICA
FactorInteger[#][[-1, 1]]&/@Select[Range[150], CompositeQ] (* Harvey P. Dale, Jan 24 2016 *)
PROG
(Magma) [ D[ #D]: n in [2..115] | not IsPrime(n) where D is PrimeDivisors(n) ]; // [Klaus Brockhaus, Jun 23 2009]
(PARI) forcomposite(n=1, 1e2, p=factor(n)[omega(n), 1]; print1(p, ", ")) \\ Felix Fröhlich, Aug 08 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michael Contente (mec1000(AT)aol.com), Mar 08 2000
EXTENSIONS
More terms from James A. Sellers, Mar 09 2000
STATUS
approved