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^12, showing records in red.
EXAMPLE
A126706(1) = 12; the smallest k > 12 such that both rad(k) = rad(12) = 6 and 12 does not divide k is a(1) = 18.
A126706(2) = 18; the smallest k > 18 such that both rad(k) = rad(18) = 6 and 18 does not divide k is a(2) = 24.
A126706(3) = 20; the smallest k > 20 such that rad(k) = rad(20) = 10, indivisible by 20, is a(3) = 50.
A126706(7) = 40; the smallest k > 40 such that rad(k) = rad(40) = 10, indivisible by 40, is a(7) = 50.
MATHEMATICA
rad[x_] := rad[x] = Times @@ FactorInteger[x][[All, 1]]; Table[k = m + 1; Function[r, While[Nand[rad[k] == r, ! Divisible[k, m]], k++]][rad[m]]; k, {m, Select[Range[196], Nor[PrimePowerQ[#], SquareFreeQ[#]] &]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, May 19 2023
STATUS
approved