This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A119499 Records in A114717. 3
 1, 2, 5, 14, 48, 2452, 183958, 4877756, 17454844, 20071150430, 409158464142, 129586764260850, 269333638458151764, 1868569007661198289216, 326772188939088357313806, 48024472200935599107697461965204, 11653191042139941668276738496190656 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 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 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 *) CROSSREFS a(n) = A114717(A119500(n)). Subset of A119841. Sequence in context: A060797 A124381 A131236 * A079452 A081920 A224978 Adjacent sequences:  A119496 A119497 A119498 * A119500 A119501 A119502 KEYWORD nonn AUTHOR Antti Karttunen, May 26 2006 EXTENSIONS a(11)-a(17) from Alois P. Heinz, Aug 06 2012 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 14 03:58 EDT 2019. Contains 327995 sequences. (Running on oeis4.)