A272759 a(n) = A065879(n)/n.

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

Offset

1,3

Comments

This sequence is bounded above by A272756.

a(n) is the least 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[Range[2^12], # == n First@ DigitCount[#, 2] &] /.
    k_ /; MissingQ@ k -> 0)/n, {n, 120}] (*  *)

Crossrefs

Cf. A000120, A065879, A272756, A272760.

Sequence in context: A243924 A335474 A333939 * A272760 A054717 A086421

Adjacent sequences: A272756 A272757 A272758 * A272760 A272761 A272762

Keyword

nonn,base

Author

Peter Kagey, May 05 2016

Status

approved