The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A064622 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A064622

Values of n at which the ratio A005132(n)/n sets a new record.
(history; published version)

#37 by Andrew Howroyd at Mon Dec 30 12:13:33 EST 2019

STATUS

reviewed

approved

#36 by Michel Marcus at Mon Dec 30 02:49:24 EST 2019

STATUS

proposed

reviewed

#35 by Alois P. Heinz at Sun Dec 29 21:46:42 EST 2019

STATUS

editing

proposed

#34 by Alois P. Heinz at Sun Dec 29 21:46:34 EST 2019

EXTENSIONS

a(18)-Offset changed, a(19) -a(20) from Jud McCranie, Dec 28 2019

STATUS

proposed

editing

#33 by Jud McCranie at Sun Dec 29 20:04:15 EST 2019

STATUS

editing

proposed

#32 by Jud McCranie at Sun Dec 29 20:03:55 EST 2019

OFFSET

0,1,2

STATUS

reviewed

editing

Discussion

Sun Dec 29

20:04

Jud McCranie: Yes, offset should be 1. changed.

#31 by Jud McCranie at Sun Dec 29 18:47:11 EST 2019

STATUS

proposed

reviewed

Discussion

Sun Dec 29

18:53

Alois P. Heinz: offset should be 1 because this is a list.

#30 by Michael De Vlieger at Sun Dec 29 18:15:38 EST 2019

STATUS

editing

proposed

#29 by Michael De Vlieger at Sun Dec 29 18:15:36 EST 2019

MATHEMATICA

Block[{s = Nest[Append[#1, If[And[#3 > 0, FreeQ[#1, #3]], #3, #1[[-1]] + #2]] & @@ {#1, #2, #1[[-1]] - #2} & @@ {#, Length@ #} &, {0}, 10^5], t}, t = MapIndexed[#1/First@ #2 &, s]; -1 + Rest@ Map[FirstPosition[t, #][[1]] &, Union@ FoldList[Max, t]] ] (* Michael De Vlieger, Dec 29 2019 *)

STATUS

reviewed

editing

#28 by Hugo Pfoertner at Sun Dec 29 01:42:28 EST 2019

STATUS

proposed

reviewed