A029532 Numbers k such that k divides the (left) concatenation of all numbers <= k written in base 15 (most significant digit on right).

1, 7, 17, 28, 424, 889, 2041, 2056, 2569, 3667, 3988, 7553, 8351, 13349, 28304, 28484, 38161, 41531, 60071, 126511, 444164, 588913, 681079, 2083457, 4753388, 7801841

Offset

1,2

Comments

This sequence differs from A061968 in that all least significant zeros are removed before concatenation.

No more terms < 10^7. [Lars Blomberg, Sep 17 2011]

Links

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

Index entries for related sequences

Example

See A029519 for example.

Mathematica

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

Crossrefs

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

Sequence in context: A017353 A147089 A045575 * A217926 A250294 A157417

Adjacent sequences: A029529 A029530 A029531 * A029533 A029534 A029535

Keyword

nonn,base,more

Author

Olivier Gérard

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002 and Aug 25 2002

a(23)-a(26) from Lars Blomberg, Sep 17 2011

Status

approved