OFFSET
1,1
COMMENTS
The largest prime-power dividing 12 is 4. The largest prime power dividing 13 is 13. So a(12) = 4*13 = 52.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
isA000961 := proc(n) if nops(ifactors(n)[2]) =1 then true ; else false ; fi ; end: A034699 := proc(n) local dvs, d ; if n = 1 then RETURN(1) ; fi ; dvs := sort(convert(numtheory[divisors](n), list), `>`) ; for d in dvs do if isA000961(d) then RETURN(d) ; fi ; od: RETURN(0) ; end: A139082 := proc(n) A034699(n)*A034699(n+1) ; end: seq(A139082(n), n=1..100) ; # R. J. Mathar, Apr 16 2008
MATHEMATICA
Times @@ # & /@ Partition[Array[Max@ Map[Power @@ # &, FactorInteger@ #] &, 58], 2, 1] (* Michael De Vlieger, Oct 22 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Apr 07 2008
EXTENSIONS
More terms from R. J. Mathar, Apr 16 2008
STATUS
approved