OFFSET
1,4
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..3300
MAPLE
read(transforms):
a050320 := BFILETOLIST("b050320.txt") :
for n from 1 do
a050325 := a050320[A025487(n)] ;
printf("%d %d\n", n, a050325) ;
end do: # R. J. Mathar, May 26 2017
MATHEMATICA
a050320 = Cases[Import["https://oeis.org/A050320/b050320.txt", "Table"], {_, _}][[All, 2]];
lpe = {}; a025487 = {1};
Do[pe = Sort[FactorInteger[n][[All, 2]]]; If[FreeQ[lpe, pe], AppendTo[lpe, pe]; AppendTo[a025487, n]], {n, 2, 10^4}];
A050325[n_] := a050320[[a025487[[n]]]];
Array[A050325, 83] (* Jean-François Alcover, Apr 06 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian G. Bower, Oct 15 1999
STATUS
approved