A364292 Numbers k such that A163511(k) <= k.

3, 6, 7, 12, 14, 15, 24, 28, 29, 30, 31, 48, 56, 58, 59, 60, 61, 62, 63, 96, 112, 116, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 192, 223, 224, 232, 236, 238, 239, 240, 242, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 383, 384, 446, 447, 448, 464, 472, 476, 478, 479, 480, 484, 488, 490, 492

Offset: 1

Author

Antti Karttunen, Jul 25 2023

Keywords

• nonn

Links

• Michael De Vlieger, Fan-style binary tree, for n = 0..2^12-1 and sequence b = A364258, showing b(n) > n in dark blue, b(n) < n in red, and b(n) = n in light blue. Numbers n shown in red appear in A364287, while n shown either in red or light blue appear in this sequence.

Crossrefs

Positions of nonpositive terms in A364258.

Cf. A163511.

Subsequences: A007283, A364287, A364293 (odd terms).

Cf. also A364289.

Programs

Mathematica

f[n_] := Reverse@ Map[Ceiling[(Length@ # - 1)/2] &, DeleteCases[Split@ Join[Riffle[IntegerDigits[n, 2], 0], {0}], {k__} /; k == 1]]; Select[Range[2, 500], Function[t, Prime[t] Product[Prime[m]^(f[#][[m]]), {m, t}]][DigitCount[#, 2, 1]] <= # &] (* Michael De Vlieger, Jul 25 2023 *)