A272760 a(n) = A065880(n)/n.

1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 5, 2, 0, 3, 4, 1, 2, 2, 0, 2, 6, 5, 5, 2, 0, 0, 4, 3, 4, 4, 5, 1, 2, 2, 0, 2, 6, 0, 4, 2, 6, 6, 4, 5, 4, 5, 0, 2, 0, 0, 4, 0, 6, 4, 0, 3, 5, 4, 5, 4, 6, 5, 6, 1, 2, 2, 0, 2, 6, 0, 5, 2, 6, 6, 4, 0, 6, 4, 6, 2, 6, 6, 6, 6, 5, 4, 3

Offset

1,3

Comments

This sequence is bounded above by A272756.

a(n) is the greatest value i such that A000120(n * i) = i or 0 if no such value exists.

Links

Peter Kagey, Table of n, a(n) for n = 1..10000

Mathematica

Table[SelectFirst[Reverse@ Range@ #, First@ DigitCount[#, 2] == #/n &] &[n SelectFirst[Range[2^12], # > IntegerLength[n #, 2] &]]/n, {n, 120}] /. k_ /; MissingQ@ k -> 0 (* Michael De Vlieger, May 05 2016, Version 10.2 *)

Crossrefs

Cf. A065880, A272756, A272759.

Sequence in context: A335474 A333939 A272759 * A054717 A086421 A290399

Adjacent sequences: A272757 A272758 A272759 * A272761 A272762 A272763

Keyword

nonn,base

Author

Peter Kagey, May 05 2016

Status

approved