A329942 a(n) begins the first run of exactly n consecutive binary hoax numbers (A329936).

4, 8, 49, 3952, 117175, 2322232, 2437094, 15449349, 438134200, 1605609902, 85678432036, 132891678661, 8415592788756

Offset

1,1

Comments

a(14) > 10^13, a(15) = 6359937801959. - Giovanni Resta, Nov 28 2019

Links

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

Example

a(2) = 8 since 8 and 9 are binary hoax numbers.
a(3) = 49 since 49, 50, and 51 are binary hoax numbers.

Mathematica

binWt[n_] := Total@IntegerDigits[n, 2]; binHoaxQ[n_] := CompositeQ[n] && Total[binWt /@ FactorInteger[n][[;; , 1]]] == binWt[n]; n = 1; count = 0; max = 6; seq = Table[0, {max}]; While[count < max, n1 = n; If[binHoaxQ[n], While[binHoaxQ[++n1]]; d = n1 - n; If[d <= max && seq[[d]] == 0, count++; seq[[d]] = n]]; n = n1 + 1]; seq

Crossrefs

Cf. A019506, A235766, A329936.

Sequence in context: A051681 A267987 A056407 * A056397 A369074 A189314

Adjacent sequences: A329939 A329940 A329941 * A329943 A329944 A329945

Keyword

nonn,more

Author

Amiram Eldar, Nov 24 2019

Extensions

a(11)-a(13) from Giovanni Resta, Nov 28 2019

Status

approved