A029501 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, 11, 182, 427, 649, 859, 1559, 5579, 10577, 11830, 19915, 533022, 546690, 569462, 673682, 1050721, 1233092, 1621270, 1771002, 9151954

Offset

1,2

Comments

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

No more terms < 10^7. - Lars Blomberg, Oct 04 2011

Links

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

Index entries for related sequences

Example

See A029495 for example.

Mathematica

b = 8; 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: A070125 A328068 A263084 * A051730 A070317 A138398

Adjacent sequences: A029498 A029499 A029500 * A029502 A029503 A029504

Keyword

nonn,base

Author

Olivier Gérard

Extensions

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

a(19)-a(24) from Lars Blomberg, Oct 04 2011

Status

approved