OFFSET
1,1
COMMENTS
All even-indexed terms are 3.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
5 is the smallest prime dividing 35. So a(35) is the smallest prime > 5, which is 7.
MAPLE
with(numtheory): a:=proc(n): if n=1 then 2 else nextprime(factorset(n)[1]) fi: end: seq(a(n), n=1..100); # _Emeric Deutsch_, Apr 22 2006
MATHEMATICA
Table[NextPrime[FactorInteger[n][[1, 1]]], {n, 93}] (* _Michael De Vlieger_, Sep 16 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
_Leroy Quet_, Mar 10 2006
EXTENSIONS
More terms from _Emeric Deutsch_, Apr 22 2006
STATUS
approved