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

1, 3, 9, 21, 39, 71, 101, 111, 128, 239, 251, 384, 401, 419, 521, 1152, 1664, 4992, 14976, 21617, 23296, 29952, 34437, 36608, 45312, 51183, 92928, 117481, 191232, 225043, 255309, 742144, 910592, 1374464, 4074467, 5427968, 10461747, 10528128, 10897536, 14721408, 15387264, 15529344, 18626688, 20796849, 27863424, 28862509, 32013423, 41722496, 47329152, 52894873, 64367901, 66678144, 68195712, 77870208

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base

Comments

a(73) > 3*10^10. - Jason Yuen, Jun 30 2024

Links

• Jason Yuen, Table of n, a(n) for n = 1..72
• Index entries for related sequences

Crossrefs

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

Programs

Mathematica

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

Extensions

More terms from Andrew Gacek (andrew(AT)dgi.net), Feb 21 2000

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

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

a(32)-a(54) from Max Alekseyev, May 16 2011