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

1, 3, 4, 9, 12, 27, 72, 81, 104, 216, 219, 243, 324, 729, 756, 972, 2187, 3888, 3921, 6561, 9477, 11664, 16848, 19683, 21156, 22599, 26244, 26811, 29245, 30132, 32805, 37665, 38788, 39852, 40905, 45756, 46965, 47871, 59049, 78732, 80676, 82380

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A007089.

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

Sequence in context: A353306 A211221 A376684 * A249179 A103014 A116552

Adjacent sequences: A029445 A029446 A029447 * A029449 A029450 A029451

Keyword

nonn,base

Author

Olivier Gérard

Extensions

More terms from David W. Wilson

Status

approved