A029470 Numbers k that divide the (right) concatenation of all numbers <= k written in base 25 (most significant digit on left).

1, 3, 5, 9, 15, 21, 25, 35, 64, 75, 125, 192, 320, 345, 375, 625, 675, 825, 875, 945, 960, 1117, 1125, 1155, 1255, 1344, 1375, 1485, 1575, 1600, 1728, 1875, 1925, 2240, 2475, 2625, 2880, 3125, 3375, 3465, 3520, 4032, 4065, 4125, 4375, 4725, 4800, 5625, 5775

Offset

1,2

Links

Robert Price, Table of n, a(n) for n = 1..89

Mathematica

b = 25; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)

Crossrefs

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

Sequence in context: A014957 A014876 A045602 * A323646 A182185 A161388

Adjacent sequences: A029467 A029468 A029469 * A029471 A029472 A029473

Keyword

nonn,base

Author

Olivier Gérard

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), May 02 2001

Status

approved