A029497 Numbers k such that k divides the (right) concatenation of all numbers <= k written in base 4 (most significant digit on right).
1, 2, 3, 11, 207, 1239, 7947, 9233, 49883, 118669, 315629, 2640670
Offset: 1
Examples
See A029495 for example.
Crossrefs
Programs
-
Mathematica
b = 4; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 12 2020 *)
Extensions
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), May 25 2001
a(12) from Sean A. Irvine, Sep 01 2009
Comments