OFFSET
1,1
COMMENTS
EXAMPLE
a(1)=5 because the composites in the run from 8, 9, 10 contain prime factors 2, 3, and 5, with 5 being the largest at N=10.
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:
A136801 := proc(n) local a, i; i := A136798(n) ; a := A006530( i) ; while not isprime(i+1) do i := i+1 ; a := max(a, A006530(i)) ; od: a ; end:
seq(A136801(n), n=1..20) ; # 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