A061951 - OEIS

%I #13 Mar 08 2020 20:55:15

%S 1,2,3,6,7,9,11,14,18,21,63,101,119,134,177,196,255,318,360,483,1092,

%T 1953,2793,3453,4302,5445,5687,5955,6027,6077,9483,16521,23026,28095,

%U 76139,125199,135082,209601,518238,573590,993891

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

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

%H Lars Blomberg, <a href="/A061951/b061951.txt">Table of n, a(n) for a(n) < 10^7</a>

%H <a href="/index/N#concat">Index entries for related sequences</a>

%e See A061931 for example.

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

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

%K nonn,base,more

%O 1,2

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

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