OFFSET
1,1
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
Michael De Vlieger, Log log scatterplot of a(n), n = 1..2^16.
EXAMPLE
MATHEMATICA
rad[x_] := rad[x] = Times@ FactorInteger[x][[All, 1]]; Table[k = m + 1; Function[r, If[SquareFreeQ[m], m*FactorInteger[m][[1, 1]], While[rad[k] != r, k++]; k]][rad[m]], {m, Select[Range[2, 104], ! PrimePowerQ[#] &]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, May 01 2023
STATUS
approved