cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 12 results. Next

A215737 a(n) is the first digit to appear n times in succession in a power of 11.

Original entry on oeis.org

1, 1, 8, 7, 6, 0, 6, 0, 9, 6, 6, 2, 2, 7, 6, 9
Offset: 1

Views

Author

V. Raman, Aug 22 2012

Keywords

Crossrefs

Cf. A001020 (powers of 11), A045875, A215731, A215732.

Programs

  • Mathematica
    n = 1; x = 1; lst = {};
For[i = 1, i <= 10000, i++,
z = Split[IntegerDigits[x]]; a = Length /@ z; b = Max[a];
For[j = n, j <= b, j++,
  AppendTo[lst, First[First[Part[z, First[Position[a, b]]]]]]; n++
]; x = 11 x ]; lst  (* Robert Price, Mar 16 2019 *)
  • Python
    def A215737(n):
    a, s = 1, tuple(str(i)*n for i in range(10))
    while True:
        a *= 11
        t = str(a)
        for i, x in enumerate(s):
            if x in t:
                return i # Chai Wah Wu, Mar 30 2021

Extensions

a(10)-a(13) added by V. Raman, Apr 30 2012, in correspondence with A215731.
a(14) from Giovanni Resta, Apr 18 2016
a(15) from Bert Dobbelaere, Feb 15 2019
a(16) from Paul Geneau de Lamarlière, Oct 03 2024

A217157 a(n) is the least value of k such that the decimal expansion of n^k contains two consecutive identical digits.

Original entry on oeis.org

16, 11, 8, 11, 5, 6, 6, 6, 2, 1, 2, 9, 3, 2, 4, 7, 5, 5, 2, 2, 1, 6, 4, 6, 5, 4, 8, 5, 2, 6, 5, 1, 2, 2, 3, 7, 2, 4, 2, 5, 3, 4, 1, 3, 2, 2, 3, 3, 2, 7, 4, 3, 6, 1, 4, 4, 2, 4, 2, 3, 2, 3, 3, 2, 1, 2, 3, 4, 2, 3, 7, 6, 3, 6, 2, 1, 3, 4, 2, 3, 3, 2, 5, 2, 4, 6
Offset: 2

Views

Author

V. Raman, Sep 27 2012

Keywords

Comments

Least number m such that n^m is a term of A171901 - Chai Wah Wu, Feb 20 2019
Conjecture: 1 <= a(n) <= 16 for n > 1 and a(n) < 16 for n > 2. - Chai Wah Wu, Feb 20 2019
a(n) >= 1 for all n > 1 and is bounded: see link for proof. - Robert Israel, Feb 21 2019

Links

Crossrefs

Cf. A045875, A215236.
Cf. A215727, A215728, A215729, A215730, A215731, A171901, A306305.

Programs

  • Maple
    f:= proc(n) local L,k;
   for k from 1 do
      L:= convert(n^k,base,10);
      if has(L[2..-1]-L[1..-2],0) then return k fi
   od
end proc:
map(f, [$2..100]); # Robert Israel, Feb 21 2019
  • Mathematica
    Table[k = 1; While[! MemberQ[Differences[IntegerDigits[n^k]], 0], k++]; k, {n, 2, 100}] (* T. D. Noe, Oct 01 2012 *)
  • Python
    def A217157(n):
    m, k = 1, n
    while True:
        s = str(k)
        for i in range(1,len(s)):
            if s[i] == s[i-1]:
                return m
        m += 1
        k *= n # Chai Wah Wu, Feb 20 2019

Formula

a(A171901(n)) = 1. - Chai Wah Wu, Feb 20 2019
a(n) = A215236(n) + 1. - Georg Fischer, Nov 25 2020

A217158 a(n) is the least value of k such that the decimal expansion of n^k contains three consecutive identical digits.

Original entry on oeis.org

24, 32, 12, 50, 5, 31, 8, 16, 3, 8, 17, 25, 14, 23, 6, 12, 6, 9, 3, 11, 7, 15, 14, 25, 11, 11, 10, 5, 3, 7, 8, 10, 10, 18, 9, 15, 2, 12, 3, 14, 4, 7, 12, 18, 12, 8, 17, 17, 3, 15, 10, 7, 11, 25, 24, 8, 11, 10, 3, 14, 11, 18, 4, 7, 9, 13, 7, 12, 3, 11, 8, 13
Offset: 2

Views

Author

V. Raman, Sep 27 2012

Keywords

Links

Crossrefs

Cf. A045875, A215727, A215728, A215729, A215730, A215731.

Programs

  • Mathematica
    Table[k = 1; While[! MemberQ[Partition[Differences[IntegerDigits[n^k]], 2, 1], {0, 0}], k++]; k, {n, 2, 100}] (* T. D. Noe, Oct 01 2012 *)
lvk[n_]:=Module[{k=1},While[SequenceCount[IntegerDigits[n^k],{x_,x_,x_}]<1,k++];k]; Array[lvk,80,2] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 13 2018 *)

A217159 a(n) is the least value of k such that the decimal expansion of n^k contains four consecutive identical digits.

Original entry on oeis.org

41, 33, 90, 95, 115, 71, 60, 88, 4, 39, 18, 25, 14, 98, 45, 52, 78, 70, 4, 29, 42, 35, 41, 48, 44, 11, 21, 37, 4, 18, 36, 71, 34, 18, 64, 20, 39, 32, 4, 40, 20, 20, 45, 33, 33, 14, 36, 40, 4, 37, 42, 29, 39, 63, 24, 10, 26, 10, 4, 64, 15, 30, 30, 18, 17, 58
Offset: 2

Views

Author

V. Raman, Sep 27 2012

Keywords

Comments

The term 76 appears for the first time in this sequence at n = 112044721958. - Paul Geneau de Lamarlière, Jun 25 2024

Links

Crossrefs

Cf. A045875, A215727, A215728, A215729, A215730, A215731.

Programs

  • Mathematica
    Table[k = 1; While[! MemberQ[Partition[Differences[IntegerDigits[n^k]], 3, 1], {0, 0, 0}], k++]; k, {n, 2, 100}] (* T. D. Noe, Oct 01 2012 *)
lk[n_]:=Module[{k=1,t=Table[x_,4]},While[SequenceCount[IntegerDigits[n^k],t]< 1,k++];k];Array[lk,80,2] (* Harvey P. Dale, Jun 21 2022 *)

A217160 a(n) is the least value of k such that the decimal expansion of n^k contains five consecutive identical digits.

Original entry on oeis.org

220, 274, 110, 125, 226, 172, 105, 137, 5, 156, 40, 227, 196, 216, 55, 235, 78, 115, 5, 104, 133, 187, 126, 93, 115, 110, 21, 163, 5, 40, 44, 159, 104, 110, 113, 20, 200, 205, 5, 119, 142, 116, 90, 145, 156, 136, 37, 86, 5, 37, 62, 119, 85, 91, 107, 142, 40
Offset: 2

Views

Author

V. Raman, Sep 27 2012

Keywords

Links

Crossrefs

Cf. A045875, A215727, A215728, A215729, A215730, A215731.

Programs

  • Mathematica
    Table[k = 1; While[! MemberQ[Partition[Differences[IntegerDigits[n^k]], 4, 1], {0, 0, 0, 0}], k++]; k, {n, 2, 100}] (* T. D. Noe, Oct 01 2012 *)

A217161 a(n) is the least value of k such that the decimal expansion of n^k contains six consecutive identical digits.

Original entry on oeis.org

971, 538, 486, 1087, 371, 175, 324, 269, 6, 482, 362, 327, 196, 516, 243, 350, 288, 144, 6, 895, 822, 238, 481, 1137, 281, 180, 127, 358, 6, 286, 454, 286, 347, 110, 481, 346, 314, 448, 6, 565, 388, 275, 90, 622, 231, 451, 37, 255, 6, 481, 202, 191, 472, 308
Offset: 2

Views

Author

V. Raman, Sep 27 2012

Keywords

Links

Crossrefs

Cf. A045875, A215727, A215728, A215729, A215730, A215731.

Programs

  • Mathematica
    Table[k = 1; While[! MemberQ[Partition[Differences[IntegerDigits[n^k]], 5, 1], {0, 0, 0, 0, 0}], k++]; k, {n, 2, 100}] (* T. D. Noe, Oct 01 2012 *)
lk[n_]:=Module[{k=1,t=Table[x_,6]},While[SequenceCount[IntegerDigits[ n^k],t]<1,k++];k]; Array[lk,60,2] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 18 2018 *)

A217162 a(n) is the least value of k such that the decimal expansion of n^k contains seven consecutive identical digits.

Original entry on oeis.org

972, 2124, 486, 2786, 1503, 1961, 324, 1062, 7, 1323, 1938, 512, 1053, 2600, 243, 2474, 1486, 940, 7, 1085, 1068, 238, 2908, 1393, 699, 708, 704, 1566, 7, 286, 1711, 935, 2225, 1190, 1357, 692, 1182, 448, 7, 885, 1349, 815, 647, 1675, 1131, 548, 333, 1154, 7
Offset: 2

Views

Author

V. Raman, Sep 27 2012

Keywords

Links

Crossrefs

Cf. A045875, A215727, A215728, A215729, A215730, A215731.

Programs

  • Mathematica
    Table[k = 1; While[! MemberQ[Partition[Differences[IntegerDigits[n^k]], 6, 1], {0, 0, 0, 0, 0, 0}], k++]; k, {n, 2, 100}] (* T. D. Noe, Oct 01 2012 *)
scd[n_]:=Module[{k=1},While[FreeQ[IntegerDigits[n^k],{_,x_,x_,x_,x_,x_,x_,x_,_}],k++];k]; Array[scd,50,2] (* Harvey P. Dale, May 23 2016 *)

A217163 a(n) is the least value of k such that the decimal expansion of n^k contains eight or more consecutive identical digits.

Original entry on oeis.org

8554, 7720, 4277, 2790, 8533, 6176, 4442, 3860, 8, 2983, 2430, 5482, 1053, 5030, 3502, 5781, 3982, 4706, 8, 2568, 4850, 2740, 4549, 1395, 699, 2960, 2679, 3197, 8, 4057, 2709, 3115, 3436, 1190, 6629, 692, 3274, 5773, 8, 6997, 3536, 5936, 647, 3204, 1369, 1587
Offset: 2

Views

Author

V. Raman, Sep 27 2012

Keywords

Links

Crossrefs

Cf. A045875, A215727, A215728, A215729, A215730, A215731.

Programs

  • Mathematica
    Table[k = 1; While[! MemberQ[Partition[Differences[IntegerDigits[n^k]], 7, 1], {0, 0, 0, 0, 0, 0, 0}], k++]; k, {n, 2, 50}] (* T. D. Noe, Oct 01 2012 *)
lvk8[n_]:=Module[{k=Ceiling[Log[n,11111111]]},While[Max[Length/@ Split[ IntegerDigits[n^k]]]<8,k++];k] Array[lvk8, 50, 2] (* Harvey P. Dale, Jul 31 2013 *)

Extensions

Definition clarified by Harvey P. Dale, Jul 31 2013

A217164 a(n) is the least value of k such that the decimal expansion of n^k contains nine consecutive identical digits.

Original entry on oeis.org

42485, 22791, 21243, 2796, 27717, 33836, 14162, 22076, 9, 9443, 11429, 16661, 16548, 11259, 10622, 14991, 5786, 28096, 9, 2890, 16736, 14116, 4549, 1398, 27735, 7597, 3614, 10332, 9, 4057, 8497, 9060, 23985, 2943, 13859, 11422, 13270, 5773, 9, 14777, 11541
Offset: 2

Views

Author

V. Raman, Sep 27 2012

Keywords

Links

Crossrefs

Cf. A045875, A215727, A215728, A215729, A215730, A215731.

Programs

  • Mathematica
    Table[k = 1; While[! MemberQ[Partition[Differences[IntegerDigits[n^k]], 8, 1], {0, 0, 0, 0, 0, 0, 0, 0}], k++]; k, {n, 2, 50}] (* T. D. Noe, Oct 01 2012 *)

A217165 a(n) is the least value of k such that the decimal expansion of Fibonacci(k) contains n consecutive identical digits.

Original entry on oeis.org

0, 10, 49, 66, 118, 883, 2202, 6493, 62334, 135241, 353587, 1162507, 5155873, 7280413, 37356153
Offset: 1

Views

Author

V. Raman, Sep 27 2012

Keywords

Comments

a(16) > 42000000. - Paul Geneau de Lamarlière, Feb 04 2024
a(16) > 10^8. - Nick Hobson, Feb 09 2024

Links

Crossrefs

Cf. A000045, A045875, A215727, A215728, A215729, A215730, A215731.

Programs

  • C
    // See Links section.
  • Mathematica
    k = 0; Join[{0}, Table[While[d = IntegerDigits[Fibonacci[k]]; ! MemberQ[Partition[Differences[d], n - 1, 1], Table[0, {n - 1}]], k++]; k, {n, 2, 8}]] (* T. D. Noe, Oct 02 2012 *)
  • Python
    def A217165(n):
    if n == 1:
        return 0
    else:
        l, y, x = [str(d)*n for d in range(10)], 0, 1
        for m in range(1, 10**9):
            s = str(x)
            for k in l:
                if k in s:
                    return m
            y, x = x, y+x
        return 'search limit reached'
# Chai Wah Wu, Dec 17 2014

Extensions

a(10)-a(11) from Chai Wah Wu, Dec 17 2014
a(12)-a(15) from Paul Geneau de Lamarlière, Feb 04 2024
Showing 1-10 of 12 results. Next

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.