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

1, 2, 4, 6, 7, 18, 21, 35, 63, 105, 111, 159, 217, 1183, 1330, 1353, 1449, 2023, 7223, 8707, 10787, 13881, 58135, 1126478, 1135315, 1141795, 1938643, 5867454, 9251270

Offset

1,2

Comments

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

Links

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

Index entries for related sequences

Example

See A061931 for example.

Mathematica

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

Crossrefs

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

Sequence in context: A084591 A088758 A105176 * A065804 A374123 A328768

Adjacent sequences: A061934 A061935 A061936 * A061938 A061939 A061940

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

6 more terms Sean A. Irvine, Sep 03 2009

Status

approved