A301646 Numbers k at which A062776(k) reaches a record high.

1, 2, 4, 6, 10, 12, 14, 18, 24, 30, 42, 54, 60, 66, 70, 78, 84, 90, 114, 120, 126, 150, 168, 180, 210, 270, 294, 300, 330, 390, 420, 462, 510, 546, 570, 630, 660, 714, 770, 780, 840, 924, 990, 1050, 1170, 1260, 1320, 1386, 1470, 1560, 1638

Offset

1,2

Links

Table of n, a(n) for n=1..51.

Example

A062776(6) = 576, larger than any A062776(k) for 1 <= k < 6 so 6 is in the sequence.

Mathematica

With[{s = Table[GCD[(n + 2)!, n^n], {n, 1700}]}, Map[FirstPosition[s, #][[1]] &, Union@ FoldList[Max, s]]] (* Michael De Vlieger, Mar 26 2018 *)

Prog

(PARI) val(n, p) = my(r=0); while(n, r+=n\=p); r
A062776(n) = my(f = factor(n)[, 1]~); prod(i=1, #f, f[i] ^ min(n, val(n + 2, f[i])))
upto(n) = my(r = 0, res = List(), c); for(i = 1, n, c = A062776(i); if(c > r, r = c; listput(res, i))); res

Crossrefs

Cf. A062776.

Sequence in context: A339331 A255056 A164875 * A024892 A087136 A015921

Adjacent sequences: A301643 A301644 A301645 * A301647 A301648 A301649

Keyword

nonn,easy

Author

David A. Corneth, Mar 25 2018

Status

approved