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

1, 7, 28, 77, 211, 308, 343, 553, 791, 2177, 3928, 46519

Offset

1,2

Comments

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

No more terms < 10^7. - Lars Blomberg, Aug 09 2011

Links

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

Index entries for related sequences

Example

See A061955 for example.

Mathematica

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

Crossrefs

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

Sequence in context: A357694 A341986 A341067 * A223772 A024012 A352900

Adjacent sequences: A061965 A061966 A061967 * A061969 A061970 A061971

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