A119499 Records in A114717.

1, 2, 5, 14, 48, 2452, 183958, 4877756, 17454844, 20071150430, 409158464142, 129586764260850, 269333638458151764, 1868569007661198289216, 326772188939088357313806, 48024472200935599107697461965204, 11653191042139941668276738496190656

Offset: 1

Author

Antti Karttunen, May 26 2006

Keywords

• nonn

Comments

Term a(10) was taken from A114716(4) (= A114715(3,4) = A114715(4,3)).

Links

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

Crossrefs

a(n) = A114717(A119500(n)). Subset of A119841.

Programs

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_] := 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]]; A119499 = Reap[For[record = 0; k = 1, k < 5000, k++, If[a[k] > record, record = a[k]; Print[k, " ", record]; Sow[record]]]][[2, 1]] (* Jean-François Alcover, Mar 03 2016, after Alois P. Heinz *)

Extensions

a(11)-a(17) from Alois P. Heinz, Aug 06 2012