A029449 Numbers k that divide the (right) concatenation of all numbers <= k written in base 4 (most significant digit on left).

1, 2, 3, 4, 6, 8, 12, 14, 16, 18, 21, 24, 26, 28, 32, 36, 42, 48, 52, 56, 58, 63, 64, 72, 84, 96, 108, 126, 128, 144, 147, 168, 189, 192, 216, 252, 256, 276, 328, 362, 384, 456, 492, 512, 656, 768, 896, 904, 984, 1024, 1116, 1152, 1211, 1251, 1344, 1536, 1736

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base

Links

• Robert Price, Table of n, a(n) for n = 1..134

Crossrefs

Cf. A007090.

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

Mathematica

b = 4; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 10 2020 *)