%I #12 Mar 03 2016 05:44:57
%S 1,2,5,14,48,42,2452,462,132,183958,6006,4877756,429,1680384,24024,
%T 17454844,87516,20071150430,1430,409158464142,1662804,1941406508,
%U 1385670,129586764260850,4862,269333638458151764,140229804,6405442434150,242201554680,6708527580006468
%N Distinct values in A114717 in order of appearance.
%H Alois P. Heinz, <a href="/A119841/b119841.txt">Table of n, a(n) for n = 1..69</a>
%t b[s_] := b[s] = If[Length[s] < 2, 1, Sum[If[Length[Select[s, Mod[#, x] == 0 &]] == 1, b[Complement[s, {x}]], 0], {x, s}]]; a[n_] := a[n] = Module[{l, m}, l = Sort[FactorInteger[n], #1[[2]] > #2[[2]] &]; m = Product[Prime[ i]^l[[i]][[2]], {i, 1, Length[l]}]; b[Divisors[m] // Rest // Most]]; A119841 = Reap[For[k = 1, k < 2000, k++, If[FreeQ[Array[a, k - 1], a[k]], Print[k, " ", a[k]]; Sow[a[k]]]]][[2, 1]] (* _Jean-François Alcover_, Mar 03 2016, after _Alois P. Heinz_ *)
%Y a(n) = A114717(A119840(n)). Cf. A119499.
%K nonn
%O 1,2
%A _Antti Karttunen_, May 26 2006
%E a(19)-a(30) from _Alois P. Heinz_, Aug 06 2012