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