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

1, 7, 8, 112, 424, 595, 1997, 2336, 2455, 33265, 2475701, 9363208, 15402464

Offset

1,2

Comments

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

No more terms < 10^7. [Lars Blomberg, Oct 02 2011]

Links

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

Index entries for related sequences

Example

See A029495 for example.

Mathematica

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

Crossrefs

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

Sequence in context: A354011 A103680 A219518 * A041109 A041110 A041259

Adjacent sequences: A029493 A029494 A029495 * A029497 A029498 A029499

Keyword

nonn,base

Author

Olivier Gérard

Extensions

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

Additional comments from Larry Reeves (larryr(AT)acm.org), May 25 2001

a(10) from Larry Reeves, Jan 16 2002

a(11)-a(12) from Lars Blomberg, Oct 02 2011

a(13) from Chai Wah Wu, Jul 28 2020

Status

approved