OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MAPLE
map(igcd@op, ListTools:-PartialSums([[0, 0], seq([min, max](numtheory:-factorset(n)), n=2..N)])); # Robert Israel, Dec 16 2015
MATHEMATICA
GCD @@@ Transpose[{Accumulate[Prepend[First /@ #, 0]], Accumulate[Prepend[Last /@ #, 0]]}] &@ Map[First /@ FactorInteger@ # &, Range[2, 103]] (* Michael De Vlieger, Dec 15 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 22 2003
STATUS
approved