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 288 results. Next

A152756 Bisection of A000533.

Original entry on oeis.org

1, 101, 10001, 1000001, 100000001, 10000000001, 1000000000001, 100000000000001, 10000000000000001, 1000000000000000001, 100000000000000000001, 10000000000000000000001
Offset: 1

Views

Author

Omar E. Pol, Dec 13 2008

Keywords

Comments

a(1)=1, for n>1, a(n) is the concatenation of "1", 2(n-1)-1 digits "0" and "1". - Omar E. Pol, Dec 14 2008

Examples

			n ..... a(n)
1 ....... 1
2 ...... 101
3 ..... 10001
4 .... 1000001
5 ... 100000001
		

Crossrefs

Programs

  • Magma
    [1] cat [10^(2*n)+1: n in [1..15]]; // Vincenzo Librandi, Jul 27 2014
  • Mathematica
    A152756[n_] := If[n == 1, 1, 100^(n-1) + 1]; Array[A152756, 20] (* or *)
    LinearRecurrence[{101, -100}, {1, 101, 10001}, 20] (* Paolo Xausa, Oct 05 2024 *)

Formula

Except the first term, a(n)=10^(2n-2)+1. - Robert G. Wilson v, Dec 14 2008
G.f.: x*(1-100*x^2)/(1-x)/(1-100*x). - Robert Israel, Jul 27 2014

A002283 a(n) = 10^n - 1.

Original entry on oeis.org

0, 9, 99, 999, 9999, 99999, 999999, 9999999, 99999999, 999999999, 9999999999, 99999999999, 999999999999, 9999999999999, 99999999999999, 999999999999999, 9999999999999999, 99999999999999999, 999999999999999999, 9999999999999999999, 99999999999999999999, 999999999999999999999, 9999999999999999999999
Offset: 0

Views

Author

Keywords

Comments

A friend from Germany remarks that the sequence 9, 99, 999, 9999, 99999, 999999, ... might be called the grumpy German sequence: nein!, nein! nein!, nein! nein! nein!, ...
The Regan link shows that integers of the form 10^n -1 have binary representations with exactly n trailing 1 bits. Also those integers have quinary expressions with exactly n trailing 4's. For example, 10^4 -1 = (304444)5. The first digits in quinary correspond to the number 2^n -1, in our example (30)5 = 2^4 -1. A similar pattern occurs in the binary case. Consider 9 = (1001)2. - Washington Bomfim Dec 23 2010
a(n) is the number of positive integers with less than n+1 digits. - Bui Quang Tuan, Mar 09 2015
From Peter Bala, Sep 27 2015: (Start)
For n >= 1, the simple continued fraction expansion of sqrt(a(2*n)) = [10^n - 1; 1, 2*(10^n - 1), 1, 2*(10^n - 1), ...] has period 2. The simple continued fraction expansion of sqrt(a(2*n))/a(n) = [1; 10^n - 1, 2, 10^n - 1, 2, ...] also has period 2. Note the occurrence of large partial quotients in both expansions.
A theorem of Kuzmin in the measure theory of continued fractions says that large partial quotients are the exception in continued fraction expansions.
Empirically, we also see the presence of unexpectedly large partial quotients early in the continued fraction expansions of the m-th roots of the numbers a(m*n) for m >= 3. Some typical examples are given below. (End)
For n > 0, numbers whose smallest decimal digit is 9. - Stefano Spezia, Nov 16 2023

Examples

			From _Peter Bala_, Sep 27 2015: (Start)
Continued fraction expansions showing large partial quotients:
a(12)^(1/3) = [9999; 1, 299999998, 1, 9998, 1, 449999998, 1, 7998, 1, 535714284, 1, 2, 2, 142, 2, 2, 1, 599999999, 3, 1, 1,...].
Compare with a(30)^(1/3) = [9999999999; 1, 299999999999999999998, 1, 9999999998, 1, 449999999999999999998, 1, 7999999998, 1, 535714285714285714284, 1, 2, 2, 142857142, 2, 2, 1, 599999999999999999999, 3, 1, 1,...].
a(24)^(1/4) = [999999; 1, 3999999999999999998, 1, 666665, 1, 1, 1, 799999999999999999, 3, 476190, 7, 190476190476190476, 21, 43289, 1, 229, 1, 1864801864801863, 1, 4, 6,...].
Compare with a(48)^(1/4) = [999999999999; 1, 3999999999999999999999999999999999998, 1, 666666666665, 1, 1, 1, 799999999999999999999999999999999999, 3, 476190476190, 7, 190476190476190476190476190476190476, 21, 43290043289, 1, 229, 1, 1864801864801864801864801864801863, 1, 4, 6,...].
a(25)^(1/5) = [99999, 1, 499999999999999999998, 1, 49998, 1, 999999999999999999998, 1, 33332, 3, 151515151515151515151, 5, 1, 1, 1947, 1, 1, 38, 3787878787878787878, 1, 3, 5,...].
(End)
		

Crossrefs

Programs

Formula

From Mohammad K. Azarian, Jan 14 2009: (Start)
G.f.: 1/(1-10*x)-1/(1-x).
E.g.f.: e^(10*x)-e^x. (End)
a(n) = A075412(n)/A002275(n) = A178630(n)/A002276(n) = A178631(n)/A002277(n) = A075415(n)/A002278(n) = A178632(n)/A002279(n) = A178633(n)/A002280(n) = A178634(n)/A002281(n) = A178635(n)/A002282(n). - Reinhard Zumkeller, May 31 2010
a(n) = a(n-1) + 9*10^(n-1) with a(0)=0; Also: a(n) = 11*a(n-1) - 10*a(n-2) with a(0)=0, a(1)=9. - Vincenzo Librandi, Jul 22 2010
For n>0, A007953(a(n)) = A008591(n) and A010888(a(n)) = 9. - Reinhard Zumkeller, Aug 06 2010
A048379(a(n)) = 0. - Reinhard Zumkeller, Feb 21 2014
a(n) = Sum_{k=1..n} 9*10^k. - Carauleanu Marc, Sep 03 2016
Sum_{n>=1} 1/a(n) = A073668. - Amiram Eldar, Nov 13 2020
From Elmo R. Oliveira, Jul 19 2025: (Start)
a(n) = 9*A002275(n).
a(n) = A010785(A008591(n)). (End)

Extensions

More terms from Michael De Vlieger, Sep 27 2015

A138148 Cyclops numbers with binary digits only.

Original entry on oeis.org

0, 101, 11011, 1110111, 111101111, 11111011111, 1111110111111, 111111101111111, 11111111011111111, 1111111110111111111, 111111111101111111111, 11111111111011111111111, 1111111111110111111111111, 111111111111101111111111111, 11111111111111011111111111111
Offset: 0

Views

Author

Omar E. Pol, Mar 18 2008

Keywords

Comments

All members are palindromes A002113. The first five members are mentioned in A129868.
Also, binary representation of A129868.
a(A090748(n)) is equal to A138831(n), the n-th perfect number minus 1, written in base 2.
Except for the first term (replace 0 with 1) the binary representation of the n-th iteration of the elementary cellular automaton, Rule 219 starting with a single ON (black) cell. - Robert Price, Feb 21 2016
a(1) = 101 is only prime number in this sequence since a(n) = (10^(n+1)+1)*(10^n-1)/9. - Altug Alkan, May 11 2016

Examples

			n ........ a(n) .... A129868(n): value of a(n) read in base 2.
0 ......... 0 ......... 0
1 ........ 101 ........ 5
2 ....... 11011 ....... 27
3 ...... 1110111 ...... 119
4 ..... 111101111 ..... 495
5 .... 11111011111 .... 2015
6 ... 1111110111111 ... 8127
		

References

  • S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.

Crossrefs

Cyclops numbers: A134808. Cf. A002113, A129868.
Cf. A002275 (repunits R_n = (10^n-1)/9), A011557 (10^n).

Programs

Formula

From Colin Barker, Feb 21 2013: (Start)
a(n) = (-1-9*10^n+10^(1+2*n))/9.
G.f.: x*(200*x-101) / ((x-1)*(10*x-1)*(100*x-1)). (End)
a(n) = 111*a(n-1) - 1110*a(n-2) + 1000*a(n-3) for n>2. - Wesley Ivan Hurt, Dec 08 2015
a(n) = A000533(n+1)*A002275(n). - Altug Alkan, May 12 2016
E.g.f.: (-1 - 9*exp(9*x) + 10*exp(99*x))*exp(x)/9. - Ilya Gutkovskiy, May 12 2016
a(n) = A002275(2n+1) - A011557(n). - M. F. Hasler, Feb 08 2020

Extensions

More terms from Omar E. Pol, Feb 09 2020

A083318 a(0) = 1; for n>0, a(n) = 2^n + 1.

Original entry on oeis.org

1, 3, 5, 9, 17, 33, 65, 129, 257, 513, 1025, 2049, 4097, 8193, 16385, 32769, 65537, 131073, 262145, 524289, 1048577, 2097153, 4194305, 8388609, 16777217, 33554433, 67108865, 134217729, 268435457, 536870913, 1073741825, 2147483649
Offset: 0

Views

Author

Paul Barry, Apr 25 2003

Keywords

Comments

Inverse binomial transform of A005056.
Also, A000533 interpreted as binary numbers, written in base 10. Numbers whose representation in base 2 is has n+1 digits and the digit "1" is the initial and final digit and if n>1 then the internal digits are "0" (see example). - Omar E. Pol, Feb 24 2008
a(n) equals the number of ternary sequences of length n such that no two consecutive terms differ by 1. - David Nacin, May 31 2017

Examples

			From _Omar E. Pol_, Feb 24 2008: (Start)
------------------------------
n .... a(n) .. a(n) in base 2
------------------------------
0 ..... 1 ..... 1
1 ..... 3 ..... 11
2 ..... 5 ..... 101
3 ..... 9 ..... 1001
4 .... 17 ..... 10001
5 .... 33 ..... 100001
6 .... 65 ..... 1000001
7 ... 129 ..... 10000001
8 ... 257 ..... 100000001
9 ... 513 ..... 1000000001
(End)
G.f. = 1 + 3*x + 5*x^2 + 9*x^3 + 17*x^4 + 33*x^5 + 65*x^6 + 129*x^7 + ... - _Michael Somos_, Jun 04 2016
		

Crossrefs

Except for the leading term, the same as A000051.

Programs

  • GAP
    Concatenation([1], List([1..40], n-> 2^n +1)); # G. C. Greubel, Nov 20 2019
  • Magma
    [2^n+1-0^n : n in [0..40]]; // Vincenzo Librandi, Sep 01 2011
    
  • Maple
    seq(`if`(n=0, 1, 2^n + 1), n=0..40); # G. C. Greubel, Nov 20 2019
  • Mathematica
    Join[{1},2^Range[40]+1] (* Harvey P. Dale, May 17 2013 *)
  • PARI
    {a(n) = if( n<1, n==0, 2^n + 1)}; /* Michael Somos, Jun 04 2016 */
    
  • Sage
    [1]+[2^n +1 for n in (1..40)] # G. C. Greubel, Nov 20 2019
    

Formula

a(n) = 2^n + 1^n - 0^n.
G.f.: (1-2*x^2)/((1-x)*(1-2x)).
E.g.f.: exp(2*x) + exp(x) - exp(0).
a(n) = Sum_{k=0..n} 0^(k*(n-k))*2^(n-k). - Paul Barry, Feb 09 2005
a(n) = Min{m: A008687(m) = n+1}. - Reinhard Zumkeller, Jul 25 2006
Row sums of triangle A132749; = binomial transform of [1, 2, 0, 2, 0, 2, 0, 2, ...]. - Gary W. Adamson, Aug 28 2007
A020650(a(n)) = 1. - Yosu Yurramendi, Jun 01 2016

Extensions

Edited by N. J. A. Sloane, Sep 28 2007

A062397 a(n) = 10^n + 1.

Original entry on oeis.org

2, 11, 101, 1001, 10001, 100001, 1000001, 10000001, 100000001, 1000000001, 10000000001, 100000000001, 1000000000001, 10000000000001, 100000000000001, 1000000000000001, 10000000000000001, 100000000000000001
Offset: 0

Views

Author

Henry Bottomley, Jun 22 2001

Keywords

Comments

The first three terms (indices 0, 1 and 2) are the only known primes. Moreover, the terms not of the form a(2^k) are all composite, except for a(0). Indeed, for all n >= 0, a(2n+1) is divisible by 11, a(4n+2) is divisible by 101, a(8n+4) is divisible by 73, a(16n+8) is divisible by 17, a(32n+16) is divisible by 353, a(64n+32) is divisible by 19841, etc. - M. F. Hasler, Nov 03 2018 [Edited based on the comment by Jeppe Stig Nielsen, Oct 17 2019]
This sequence also results when each term is generated by converting the previous term into a Roman numeral, then replacing each letter with its corresponding decimal value, provided that the vinculum is used and numerals are written in a specific way for integers greater than 3999, e.g., IV with a vinculum over the I and V for 4000. - Jamie Robert Creasey, Apr 14 2021
By Mihăilescu's theorem, a(n) can never be a perfect power (see "Catalan's conjecture" in Links). - Marco Ripà, Mar 10 2025

Crossrefs

Except for the initial term, essentially the same as A000533. Cf. A054977, A007395, A000051, A034472, A052539, A034474, A062394, A034491, A062395, A062396, A007689, A063376, A063481, A074600-A074624, A034524, A178248, A228081 for numbers one more than powers, i.e., this sequence translated from base n (> 2) to base 10.
Cf. A038371 (smallest prime factor), A185121.

Programs

Formula

a(n) = 10*a(n-1) - 9 = A011557(n) + 1 = A002283(n) + 2.
From Mohammad K. Azarian, Jan 02 2009: (Start)
G.f.: 1/(1-x) + 1/(1-10*x).
E.g.f.: exp(x) + exp(10*x). (End)

A333237 Numbers k such that 1/k contains at least one '9' in its decimal expansion.

Original entry on oeis.org

11, 13, 17, 19, 21, 23, 29, 31, 34, 38, 41, 42, 43, 46, 47, 49, 51, 52, 53, 57, 58, 59, 61, 62, 67, 68, 69, 71, 73, 76, 77, 81, 82, 83, 84, 85, 86, 87, 89, 91, 92, 94, 95, 97, 98, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 118
Offset: 1

Views

Author

Andrew Slattery, Mar 12 2020

Keywords

Comments

Almost every prime appears in this sequence.
Among the first 10000 primes, only 2, 3, 5, 7, 37, 79, 239, 4649, and 62003 do not appear in the sequence. - Giovanni Resta, Mar 13 2020
The next primes not in the sequence are 538987, 35121409, and 265371653. - Robert Israel, Mar 18 2020

Examples

			5 is not in the sequence because 1/5 = 0.2 does not contain any 9s.
		

Crossrefs

Cf. A333236.
Subsequences (for terms > 1): A000533, A002275, A135577, A252491.
Cf. A216664 (a subsequence).
Cf. A187614.

Programs

  • Maple
    f:= proc(n) local m,S,r;
       m:= 1; S:= {1};
       do
         r:= floor(m/n);
         if r = 9 then return true fi;
         m:= (m - r*n)*10;
         if member(m,S) then return false fi;
         S:= S union {m};
       od
    end proc:
    select(f, [$1..1000]); # Robert Israel, Mar 18 2020
  • Mathematica
    Select[Range[120], MemberQ[ Flatten@ RealDigits[1/#][[1]], 9] &] (* Giovanni Resta, Mar 12 2020 *)
  • Python
    from itertools import count, islice
    from sympy import n_order, multiplicity
    def A333237_gen(startvalue=1): # generator of terms
        for m in count(max(startvalue,1)):
            m2, m5 = multiplicity(2,m), multiplicity(5,m)
            if max(str(10**(max(m2,m5)+n_order(10,m//2**m2//5**m5))//m)) == '9':
                yield m
    A333237_list = list(islice(A333237_gen(), 10)) # Chai Wah Wu, Feb 07 2022

Formula

A333236(a(n)) = 9.

Extensions

More terms from Giovanni Resta, Mar 12 2020

A352154 Numbers m such that the decimal expansion of 1/m contains the digit 0, ignoring leading and trailing 0's.

Original entry on oeis.org

11, 13, 17, 19, 21, 23, 27, 29, 31, 33, 34, 37, 38, 39, 41, 42, 43, 46, 47, 48, 49, 51, 52, 53, 57, 58, 59, 61, 62, 63, 67, 68, 69, 71, 73, 76, 77, 78, 79, 81, 83, 84, 85, 86, 87, 89, 91, 92, 93, 94, 95, 96, 97, 98, 99, 101, 102, 103, 105, 106, 107, 109, 110, 111, 113, 114
Offset: 1

Views

Author

Keywords

Comments

Leading 0's are not considered, otherwise every integer >= 11 would be a term (see examples).
Trailing 0's are also not considered, otherwise numbers of the form 2^i*5^j with i, j >= 0, apart 1 (A003592) would be terms.
If k is a term, 10*k is also a term; so, terms with no trailing zeros are all primitive.
Some subsequences:
{11, 111, 1111, ...} = A002275 \ {0, 1}
{33, 333, 3333, ...} = A002277 \ {0, 3}.
{77, 777, 7777, ...} = A002281 \ {0, 7}
{11, 101, 1001, 10001, ...} = A000533 \ {1}.

Examples

			m = 13 is a term since 1/13 = 0.0769230769230769230... has a periodic part = '07692307' or '76923070' with a 0.
m = 14 is not a term since 1/14 = 0.0714285714285714285... has a periodic part = '714285' which has no 0 (the only 0 is a leading 0).
		

Crossrefs

Similar with smallest digit k: this sequence (k=0), A352155 (k=1), A352156 (k=2), A352157 (k=3), A352158 (k=4), A352159 (k=5), A352160 (k=6), A352153 (no known term for k=7), A352161 (k=8), no term (k=9).

Programs

  • Maple
    removeInitial0:= proc(L) local i;
      for i from 1 to nops(L) do if L[i] <> 0 then return L[i..-1] fi od;
      []
    end proc:
    filter:= proc(n) local q;
      q:= NumberTheory:-RepeatingDecimal(1/n);
      member(0, removeInitial0(NonRepeatingPart(q))) or member(0, RepeatingPart(q))
    end proc:
    select(filter, [$1..300]); # Robert Israel, Apr 26 2023
  • Mathematica
    f[n_] := Union[ Flatten[ RealDigits[ 1/n][[1]] ]]; Select[ Range@ 200, Min@ f@# == 0 &]

Formula

A352153(a(n)) = 0.

A138721 Concatenation of n digits 1, n digits 0 and n digits 1.

Original entry on oeis.org

101, 110011, 111000111, 111100001111, 111110000011111, 111111000000111111, 111111100000001111111, 111111110000000011111111, 111111111000000000111111111, 111111111100000000001111111111, 111111111110000000000011111111111, 111111111111000000000000111111111111
Offset: 1

Views

Author

Omar E. Pol, Mar 29 2008

Keywords

Comments

a(n) is also A145641(n) written in base 2. - Omar E. Pol, Oct 15 2008
a(n) has 3n digits. - Omar E. Pol, Nov 12 2008

Examples

			From _Omar E. Pol_, Nov 12 2008: (Start)
n         Successive digits of a(n)
1                 ( 1 0 1 )
2              ( 1 1 0 0 1 1 )
3           ( 1 1 1 0 0 0 1 1 1 )
4        ( 1 1 1 1 0 0 0 0 1 1 1 1 )
5     ( 1 1 1 1 1 0 0 0 0 0 1 1 1 1 1 )
(End)
		

Crossrefs

Programs

  • Maple
    a:= n-> parse(cat(1$n,0$n,1$n)):
    seq(a(n), n=1..14);  # Alois P. Heinz, Mar 03 2022
  • Mathematica
    Table[(100^n + 1)*(10^n - 1)/9, {n, 15}] (* Paolo Xausa, Aug 02 2024 *)
  • PARI
    Vec(x*(101000*x^2-2200*x+101)/((x-1)*(10*x-1)*(100*x-1)*(1000*x-1)) + O(x^100)) \\ Colin Barker, Sep 16 2013

Formula

G.f.: x*(101000*x^2 - 2200*x + 101) / ((x-1)*(10*x-1)*(100*x-1)*(1000*x-1)). - Colin Barker, Sep 16 2013
a(n) = (100^n+1)*(10^n-1)/9. - Paolo Xausa, Aug 02 2024

A138145 Palindromes formed from the reflected decimal expansion of the concatenation of 1, 1, 1 and infinite 0's.

Original entry on oeis.org

1, 11, 111, 1111, 11111, 111111, 1110111, 11100111, 111000111, 1110000111, 11100000111, 111000000111, 1110000000111, 11100000000111, 111000000000111, 1110000000000111, 11100000000000111, 111000000000000111
Offset: 1

Views

Author

Omar E. Pol, Mar 29 2008

Keywords

Comments

a(n) is also A147596(n) written in base 2. - Omar E. Pol, Nov 08 2008

Examples

			n .... a(n)
1 .... 1
2 .... 11
3 .... 111
4 .... 1111
5 .... 11111
6 .... 111111
7 .... 1110111
8 .... 11100111
9 .... 111000111
10 ... 1110000111
11 ... 11100000111
12 ... 111000000111
13 ... 1110000000111
		

Crossrefs

Programs

  • Mathematica
    Table[If[n < 7, (10^n - 1)/9, 111 + 111*10^(n-3)], {n, 25}] (* or *)
    LinearRecurrence[{11, -10}, {1, 11, 111, 1111, 11111, 111111, 1110111}, 25] (* Paolo Xausa, Aug 08 2024 *)
  • PARI
    Vec(-x*(10*x^2-1)*(100*x^4+10*x^2+1)/((x-1)*(10*x-1)) + O(x^100)) \\ Colin Barker, Sep 15 2013

Formula

From Colin Barker, Sep 15 2013: (Start)
a(n) = 111+111*10^(n-3) for n>5.
a(n) = 11*a(n-1)-10*a(n-2).
G.f.: -x*(10*x^2-1)*(100*x^4+10*x^2+1) / ((x-1)*(10*x-1)). (End)

Extensions

Better definition from Omar E. Pol, Nov 16 2008

A333402 Numbers m such that the largest digit in the decimal expansion of 1/m is 1.

Original entry on oeis.org

1, 9, 10, 90, 99, 100, 900, 909, 990, 999, 1000, 9000, 9009, 9090, 9900, 9990, 9999, 10000, 90000, 90009, 90090, 90900, 90909, 99000, 99900, 99990, 99999, 100000, 900000, 900009, 900090, 900900, 909000, 909090, 990000, 990099, 999000, 999900, 999990, 999999, 1000000
Offset: 1

Views

Author

Bernard Schott, Mar 19 2020

Keywords

Comments

If m is a term, 10*m is also a term.
If m is a term then m has only digits {1}, {9}, {1,0} or {9,0} in its decimal representation, but this is not sufficient to be a term (see examples).
Some subsequences below (not exhaustive, see crossrefs):
m = 10^k, k >= 0, hence m is in A011557 = {1, 10, 100, 1000, 10000, ...};
m = 9*10^k, k >= 0, hence m is in A052268 = {9, 90, 900, 9000, 90000, ...};
m = 10^k-1, k >= 1, hence m is in A002283 = {9, 99, 999, 9999, 99999, ...};
m = 9*(10^k+1), k >= 1, hence m is in 9*A000533 = {99, 909, 9009, 90009, ...};
m = 9+100*(100^k-1)/11, k >= 0, hence m is in 9*A094028 = {9, 909, 90909, 9090909, ...}.

Examples

			As 1/101 = 0.009900990099..., 101 is not a term.
As 1/909 = 0.001100110011..., 909 is a term.
As 1/9099 = 0.000109902187..., 9099 is not a term.
As 1/9999 = 0.000100010001..., 9999 is also a term.
		

Crossrefs

Cf. A333236, A333237 (similar, with 9).
Subsequences: A002283, A011557, A052268.
Subsequences: 9*A000533, 9*A094028, 9*A135577, 9*A261544, 9*A330135.

Programs

  • Mathematica
    Select[Range[10^4], Max @ RealDigits[1/#][[1]] == 1 &] (* Amiram Eldar, Mar 19 2020 *)
  • Python
    from itertools import count, islice
    def A333402_gen(startvalue=1): # generator of terms >= startvalue
        for m in count(max(startvalue,1)):
            k = 1
            while k <= m:
                k *= 10
            rset = {0}
            while True:
                k, r = divmod(k, m)
                if max(str(k)) > '1':
                    break
                else:
                    if r in rset:
                        yield m
                        break
                rset.add(r)
                k = r
                while k <= m:
                    k *= 10
    A333402_list = list(islice(A333402_gen(),30)) # Chai Wah Wu, Feb 17 2022

Formula

A333236(a(n))= 1.

Extensions

More terms from Jinyuan Wang, Mar 19 2020
Showing 1-10 of 288 results. Next