OFFSET
1,2
COMMENTS
If n is a perfect power of a squarefree number then it contributes only one term.
EXAMPLE
18 follows 12 as 12=2^2*3 and 18 = 3^2*2.
MATHEMATICA
a[n_] := Module[{f = FactorInteger[n]}, p = f[[;; , 1]]; e = f[[;; , 2]]; Times @@ Power[p, #] & /@ Permutations[e]]; s = {}; Do[s = Join[s, a[n]], {n, 1, 55}]; s (* Amiram Eldar, Jul 20 2019 *)
CROSSREFS
KEYWORD
easy,nonn,tabf
AUTHOR
Amarnath Murthy, Aug 05 2005
EXTENSIONS
More terms from Amiram Eldar, Jul 20 2019
STATUS
approved