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

1, 2, 3, 6, 7, 9, 11, 14, 18, 21, 63, 101, 119, 134, 177, 196, 255, 318, 360, 483, 1092, 1953, 2793, 3453, 4302, 5445, 5687, 5955, 6027, 6077, 9483, 16521, 23026, 28095, 76139, 125199, 135082, 209601, 518238, 573590, 993891, 1921962, 3467968, 4426863, 4842350

Offset: 1

Author

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

Keywords

• nonn
• base

Comments

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

Examples

			See A061931 for example.
		

Links

• Lars Blomberg, Table of n, a(n) for n=1..49 (all terms below 10^7)
• Index entries for related sequences

Crossrefs

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

Programs

Mathematica

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

Extensions

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