A119841 Distinct values in A114717 in order of appearance.

1, 2, 5, 14, 48, 42, 2452, 462, 132, 183958, 6006, 4877756, 429, 1680384, 24024, 17454844, 87516, 20071150430, 1430, 409158464142, 1662804, 1941406508, 1385670, 129586764260850, 4862, 269333638458151764, 140229804, 6405442434150, 242201554680, 6708527580006468

Offset

1,2

Links

Alois P. Heinz, Table of n, a(n) for n = 1..69

Mathematica

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 *)

Crossrefs

a(n) = A114717(A119840(n)). Cf. A119499.

Sequence in context: A109156 A143918 A129867 * A149905 A149906 A129778

Adjacent sequences: A119838 A119839 A119840 * A119842 A119843 A119844

Keyword

nonn

Author

Antti Karttunen, May 26 2006

Extensions

a(19)-a(30) from Alois P. Heinz, Aug 06 2012

Status

approved