login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A349875 Triangular numbers whose mean digit value reaches a new maximum. 0
0, 1, 3, 6, 78, 686999778, 9876799878, 89996788896, 77779987999896, 589598998999878, 999699998689998991, 9988894989978899995, 95898999989999989765, 999999966989999986978996 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

COMMENTS

Subsequence of A068808.

No triangular number ends in 9, so the mean digit value is always less than 9.

Is this sequence finite? Or does the mean digit value approach some upper limit arbitrarily closely without ever reaching it exactly, and, if so, what is that limit?

a(14) <= 999999966989999986978996. - David A. Corneth, Dec 05 2021

LINKS

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

EXAMPLE

   n                  a(n)  digit sum  #dgts  mean digit value

  --  --------------------  ---------  -----  ----------------

   1                     0          0      1  0

   2                     1          1      1  1

   3                     3          3      1  3

   4                     6          6      1  6

   5                    78         15      2  7.5

   6             686999778         69      9  7.66666666666...

   7            9876799878         78     10  7.8

   8           89996788896         87     11  7.90909090909...

   9        77779987999896        111     14  7.92857142857...

  10       589598998999878        120     15  8

  11    999699998689998991        145     18  8.05555555555...

  12   9988894989978899995        154     19  8.10526315789...

  13  95898999989999989765        163     20  8.15

MATHEMATICA

seq = {}; max = -1; Do[If[(m = Mean @ IntegerDigits[(t = n*(n + 1)/2)]) > max, max = m; AppendTo[seq, t]], {n, 0, 10^6}]; seq (* Amiram Eldar, Dec 03 2021 *)

PROG

(Python)

def meandigval(n): s = str(n); return sum(map(int, s))/len(s)

def afind(limit):

    alst, k, t, record = [], 0, 0, -1

    while t <= limit:

        mdv = meandigval(t)

        if mdv > record:

            print(t, end=", ")

            record = mdv

        k += 1

        t += k

afind(10**14) # Michael S. Branicky, Dec 03 2021

CROSSREFS

Cf. A000217, A068133, A068808, A069669, A069670, A095864.

Sequence in context: A023174 A350992 A213138 * A331403 A157197 A211896

Adjacent sequences:  A349872 A349873 A349874 * A349876 A349877 A349878

KEYWORD

nonn,base,hard,more

AUTHOR

Jon E. Schoenfield, Dec 03 2021

EXTENSIONS

a(14) verified by Martin Ehrenstein, Dec 06 2021

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 28 05:47 EDT 2022. Contains 354112 sequences. (Running on oeis4.)