A029518 Numbers k such that k divides the (right) concatenation of all numbers <= k written in base 25 (most significant digit on right).

1, 3, 5, 9, 15, 21, 39, 83, 96, 288, 303, 864, 1824, 2421, 2496, 2592, 2817, 3328, 6299, 9440, 13632, 18592, 26049, 64857, 69696, 71904, 79872, 94848, 120384, 258111, 287232, 319319, 476736, 524992, 706368, 904281, 1817583, 2003520, 3156192, 4479904, 7460741

Offset

1,2

Comments

This sequence differs from A061954 in that all least significant zeros are kept during concatenation.

Links

Lars Blomberg, Table of n, a(n) for n = 1..42

Index entries for related sequences

Example

See A029495 for example.

Mathematica

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

Prog

(PARI) lista(nn, m=25) = my(s, t); for(k=1, nn, s=k; while(s, t=t*m+s%m; s\=m); if(t%k==0, print1(k, ", "))); \\ Jinyuan Wang, Dec 05 2020

Crossrefs

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

Sequence in context: A182185 A161388 A229552 * A061954 A095039 A022940

Adjacent sequences: A029515 A029516 A029517 * A029519 A029520 A029521

Keyword

nonn,base

Author

Olivier Gérard

Extensions

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

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

a(33) and beyond from Lars Blomberg, Oct 14 2011

Status

approved