OFFSET
1,1
LINKS
Dario Alejandro Alpern, Factorization using the Elliptic Curve Method.
EXAMPLE
a(4) = 11 is the least prime factor of 14641 = 11^4.
a(5) = 2157293 as 15101051 = 7 * 2157293.
MATHEMATICA
f[n_] := (Table[ #[[1]], {1}] & /@ FactorInteger[ FromDigits[ Flatten[ Table[ IntegerDigits[ Binomial[n, k]], {k, 0, n}]]], FactorComplete -> True])[[ -1, 1]]; Table[ f[n], {n, 10}] (* Robert G. Wilson v, Dec 11 2004 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 23 2004
EXTENSIONS
More terms from Robert G. Wilson v, Dec 11 2004
STATUS
approved