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

1, 4, 7, 11, 56, 104, 340, 17467, 19136, 125533, 230857

Offset

1,2

Comments

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

No more terms < 10^7. [Lars Blomberg, Aug 28 2011]

Links

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

Index entries for related sequences

Example

See A061955 for example.

Mathematica

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

Crossrefs

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

Sequence in context: A179165 A369546 A128836 * A327429 A178939 A072732

Adjacent sequences: A061953 A061954 A061955 * A061957 A061958 A061959

Keyword

nonn,base,more

Author

Larry Reeves (larryr(AT)acm.org), May 24 2001

Extensions

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

Status

approved