A385848 Numbers not of the form 2^m*k + m + 1, for integers m, k >= 1.

1, 2, 3, 5, 9, 13, 17, 25, 29, 33, 41, 45, 49, 57, 61, 65, 73, 77, 81, 89, 93, 97, 105, 109, 113, 121, 125, 129, 137, 141, 145, 153, 157, 161, 169, 173, 177, 185, 189, 193, 201, 205, 209, 217, 221, 225, 233, 237, 241, 249, 253, 257, 269, 273, 281, 285, 289

Offset

1,2

Comments

Complement of the set {2^m*k + m + 1 | m,k >= 1}.

Links

Robert Israel, Table of n, a(n) for n = 1..5504

Maple

M:= 1000: # for terms <= M
S:= {}:
for m from 1 to ilog2(M) do
  for k from 1 do
    v:= 2^m * k + m + 1;
    if v > M then break else S:= S union {v} fi
od od:
sort(convert({$1..M} minus S, list)); # Robert Israel, Aug 11 2025

Mathematica

maxTerm = 300; Complement[Range[maxTerm], Flatten[Table[2^n * k + n + 1, {n, 1, Ceiling[Log[2, maxTerm]]}, {k, 1, Floor[(maxTerm - n - 1)/2^n]}]]]

Crossrefs

Sequence in context: A221708 A256408 A256404 * A064386 A049715 A076095

Adjacent sequences: A385845 A385846 A385847 * A385849 A385850 A385851

Keyword

nonn

Author

Dimas Saputra, Jul 10 2025

Status

approved