OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
5 is the largest prime dividing 10. So a(10) is the smallest prime > 5, which is 7.
MATHEMATICA
Table[Prime[PrimePi[FactorInteger[n][[Length[FactorInteger[n]]]][[1]]]+1], {n, 2, 80}], 2, 1] (* Stefan Steinerberger, Apr 09 2006 *)
PROG
(Haskell)
a117366 = a151800 . a006530 -- Reinhard Zumkeller, Apr 06 2015
(PARI) A117366(n) = if(1==n, 2, nextprime(1+vecmax(factor(n)[, 1]))); \\ Antti Karttunen, Jan 15 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Mar 10 2006
EXTENSIONS
More terms from Stefan Steinerberger, Apr 09 2006
STATUS
approved