OFFSET
1,1
COMMENTS
EXAMPLE
a(1)=10 because at N=10 the largest prime factor is 5.
MAPLE
A006530 := proc(n) max( op(numtheory[factorset](n))) ; end:
A136798 := proc(n) local a; if n = 1 then 8; else a := nextprime( procname(n-1))+1 ; while nextprime(a)-a <=2 do a := nextprime(a)+1 ; od; RETURN(a) ; fi; end:
A136802 := proc(n) local c, lpf, a; c := A136798(n) ; lpf := A006530(c) ; a := c; while not isprime(c+1) do c := c+1 ; if A006530(c) > lpf then a := c ; lpf := A006530(c) ; fi; od: a ; end:
seq(A136802(n), n=1..80) ; # R. J. Mathar, May 27 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, Jan 24 2008
EXTENSIONS
Edited by R. J. Mathar, May 27 2009
STATUS
approved