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

1, 2, 4, 6, 7, 8, 12, 13, 14, 15, 16, 21, 24, 28, 32, 35, 39, 42, 48, 49, 56, 64, 70, 98, 106, 112, 128, 147, 164, 196, 224, 231, 256, 289, 392, 448, 490, 512, 545, 560, 608, 640, 665, 688, 784, 872, 889, 896, 980, 1024, 1064, 1120, 1280, 1520, 1526, 1568

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A007094.

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

Sequence in context: A334573 A228370 A186112 * A330943 A352089 A358458

Adjacent sequences: A029450 A029451 A029452 * A029454 A029455 A029456

Keyword

nonn,base

Author

Olivier Gérard

Status

approved