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
Examples
See A061931 for example.
Crossrefs
Programs
-
Mathematica
b = 8; 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
6 more terms Sean A. Irvine, Sep 03 2009
Comments