A382278 a(n) = least integer m >= 2 such that n is a sum of the form Sum_{k>=0} floor(h/m^k) for some integer h >= 1.

2, 3, 2, 2, 3, 3, 2, 2, 3, 2, 2, 4, 3, 3, 2, 2, 3, 2, 2, 5, 3, 2, 2, 4, 2, 2, 3, 3, 4, 3, 2, 2, 4, 2, 2, 3, 4, 2, 2, 3, 2, 2, 4, 3, 3, 2, 2, 3, 2, 2, 5, 4, 2, 2, 3, 2, 2, 3, 3, 4, 3, 3, 2, 2, 4, 2, 2, 3, 4, 2, 2, 3, 2, 2, 3, 3, 5, 2, 2, 3, 2, 2, 5, 3, 2, 2

Offset

1,1

Comments

Let R denote the rectangular array in which row n gives the positions of n+1 in the sequence. Corner of R:

1 3 4 7 8 10 11 15

2 5 6 9 13 14 17 21

12 24 29 33 37 43 52 60

20 51 77 83 226 253 275 306

141 254 285 403 510 541 572 765

(row 1 of R) = A005187(n) for n >= 1.

Links

Table of n, a(n) for n=1..86.

Example

a(12) = 4, because 4 is the least m such that 12 is a sum of the form Sum_{k>=0} floor(h/4^k) for some h >= 1; that sum is [10/1] + [10/4], where [ ] = floor.

Mathematica

testM[n_, m_] := With[{hMin = Floor[(n (m - 1) + m)/m], hMax = 2 n m},
   AnyTrue[Range[hMin, hMax], Total[IntegerDigits[#, m]] == m # - n (m - 1) &]];
a[n_] := SelectFirst[Range[2, n + 1], testM[n, #] &]
t = Map[a, Range[100]]
(* Peter J. C. Moses, Mar 20 2025 *)

Crossrefs

Cf. A005187, A381897, A382324.

Sequence in context: A273404 A281976 A300708 * A240755 A309806 A256170

Adjacent sequences: A382275 A382276 A382277 * A382279 A382280 A382281

Keyword

nonn

Author

Clark Kimberling, Mar 21 2025

Status

approved