OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
rad[n_] := Times @@ FactorInteger[n][[All, 1]]; a[1] = 2; a[n_] := For[k = 1, True, k++, If[rad[n + k] > rad[n], Return[n + k]]]; Table[a[n], {n, 1, 72}] (* Jean-François Alcover, Oct 05 2012 *)
PROG
(Haskell)
a079228 n = head [k | k <- [n+1..], a007947 k > a007947 n]
-- Reinhard Zumkeller, Oct 11 2011
(PARI) rad(n)=my(f=factor(n)[, 1]); prod(i=1, #f, f[i])
a(n)=my(r=rad(n)); while(rad(n++)<=r, ); n \\ Charles R Greathouse IV, Aug 21 2013
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Reinhard Zumkeller, Jan 02 2003
STATUS
approved