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

Author

Olivier Gérard

Keywords

• nonn
• base

Links

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

Crossrefs

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

Programs

Mathematica

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

Extensions

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