login
This site is supported by donations to The OEIS Foundation.

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 21 15:11 EST 2019. Contains 320374 sequences. (Running on oeis4.)