A029512 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 19 (most significant digit on right).

1, 3, 9, 23, 24, 27, 40, 45, 72, 120, 135, 141, 145, 161, 243, 360, 520, 801, 1272, 1279, 1512, 2568, 2681, 3921, 4584, 7155, 8704, 12389, 22405, 27649, 32640, 34720, 40455, 62755, 65568, 89163, 120240, 125671, 144144, 193680, 204080, 241200

Offset

1,2

Comments

This sequence differs from A061948 in that all least significant zeros are kept during concatenation.

Links

Lars Blomberg, Table of n, a(n) for a(n) < 10^7

Example

See A029495 for example.

Mathematica

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

Crossrefs

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

Sequence in context: A326007 A272559 A270991 * A210027 A018555 A147271

Adjacent sequences: A029509 A029510 A029511 * A029513 A029514 A029515

Keyword

nonn,base

Author

Olivier Gérard

Extensions

Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), Jun 01 2001

Status

approved