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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A119500 Numbers n such that A114717(n) sets a new record. 3
1, 6, 12, 24, 30, 60, 120, 180, 240, 360, 420, 720, 840, 1260, 1680, 2520, 4620, 5040, 7560, 9240 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

This sequence gives yet another list of "increasingly compound" numbers.

LINKS

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

CROSSREFS

Cf. A119499, A018894. Subset of A119840.

Sequence in context: A069171 A071611 A216453 * A260633 A110967 A000082

Adjacent sequences:  A119497 A119498 A119499 * A119501 A119502 A119503

KEYWORD

nonn

AUTHOR

Antti Karttunen, May 26 2006

EXTENSIONS

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

a(18)-a(20) from Alois P. Heinz, Feb 25 2016

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 21 10:33 EDT 2018. Contains 316414 sequences. (Running on oeis4.)