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-7 of 7 results.

A153724 Greatest number m such that the fractional part of (Pi-2)^A153720(n) >= 1-(1/m).

Original entry on oeis.org

1, 16, 8, 158, 946, 8786, 16159, 20188, 61392, 34039, 31425, 59154, 217556
Offset: 1

Views

Author

Hieronymus Fischer, Jan 06 2009

Keywords

Examples

			a(4)=158, since 1-(1/159) = 0.993710... > fract((Pi-2)^A153720(4)) = fract(Pi^85) = 0.993693... >= 0.993670... = 1-(1/158).
		

Crossrefs

Programs

  • Mathematica
    A153720 = {1, 5, 8, 85, 911, 2921, 4491, 11543, 15724, 27683, 29921,
       37276, 126659};
    Table[Floor[1/(1 - FractionalPart[(Pi - 2)^A153720[[n]]])], {n, 1,
    Length[A153720]}] (* Robert Price, May 10 2019 *)

Formula

a(n):=floor(1/(1-fract((Pi-2)^A153720(n)))), where fract(x) = x-floor(x).

A153672 Numbers k such that the fractional part of (101/100)^k is greater than 1-(1/k).

Original entry on oeis.org

1, 69, 180, 783, 859, 1803, 10763, 19105, 39568, 50172, 132572, 355146, 1452050, 2245950, 3047334, 3933030, 4165171, 98544173
Offset: 1

Views

Author

Hieronymus Fischer, Jan 06 2009

Keywords

Comments

Numbers k such that fract((101/100)^k) > 1-(1/k), where fract(x) = x-floor(x).
The next term is greater than 2*10^8.

Examples

			a(2) = 69, since fract((101/100)^69) = 0.9868... > 0.9855... = 1 - (1/69), but fract((101/100)^k) <= 1 - (1/k) for 1 < k < 69.
		

Crossrefs

Programs

  • Mathematica
    Select[Range[1000], FractionalPart[(101/100)^#] >= 1 - (1/#) &] (* G. C. Greubel, Aug 24 2016 *)

Extensions

a(13)-a(18) from Robert Gerbicz, Nov 22 2010

A153680 Numbers k such that the fractional part of (1024/1000)^k is greater than 1-(1/k).

Original entry on oeis.org

1, 29, 82, 134, 277, 1306, 2036, 2349, 6393, 9389, 9816, 21689, 34477, 145984, 171954, 956357, 2746739
Offset: 1

Views

Author

Hieronymus Fischer, Jan 06 2009

Keywords

Comments

Numbers k such that fract((1024/1000)^k) > 1-(1/k), where fract(x) = x-floor(x).
The next such number must be greater than 5*10^5.

Examples

			a(2) = 29, since fract((1024/1000)^29) = 0.98929... > 0.9655... = 1 - (1/29), but fract((1024/1000)^k) <= 1 - (1/k) for 1 < k < 29.
		

Crossrefs

Programs

  • Mathematica
    Select[Range[1000], FractionalPart[(1024/1000)^#] >= 1 - (1/#) &] (* G. C. Greubel, Aug 24 2016 *)

Extensions

a(16)-a(17) from Hagen von Eitzen, May 16 2009

A153688 Numbers k such that the fractional part of (11/10)^k is greater than 1-(1/k).

Original entry on oeis.org

1, 7, 77, 103, 320, 1821, 2992, 15290, 88651, 88652, 180168, 410498, 548816, 672732
Offset: 1

Views

Author

Hieronymus Fischer, Jan 06 2009

Keywords

Comments

Numbers k such that fract((11/10)^k) > 1-(1/k), where fract(x) = x-floor(x).
The next such number must be greater than 2*10^5.
a(15) > 10^7. Robert Price, Mar 19 2019

Examples

			a(2) = 7, since fract((11/10)^7) = 0.9487... > 0.8571... = 1 - (1/7), but fract((11/10)^k) <= 1 - (1/k) for 1 < k < 7.
		

Crossrefs

Programs

  • Mathematica
    Select[Range[1000], FractionalPart[(11/10)^#] >= 1 - (1/#) &] (* G. C. Greubel, Aug 24 2016 *)

Extensions

a(12)-a(14) from Robert Price, Mar 19 2019

A153696 Numbers k such that the fractional part of (10/9)^k is greater than 1-(1/k).

Original entry on oeis.org

1, 6, 13, 17, 5513, 12746, 126237, 430116, 477190, 1295623, 1319307, 3596185, 6109350
Offset: 1

Views

Author

Hieronymus Fischer, Jan 06 2009

Keywords

Comments

Numbers k such that fract((10/9)^k) > 1-(1/k), where fract(x) = x-floor(x).
The next such number must be greater than 2*10^5.
a(14) > 10^7. - Robert Price, Mar 24 2019

Examples

			a(3) = 13, since fract((10/9)^13) = 0.9341... > 0.923... = 1 - (1/13), but fract((10/9)^k) <= 1 - (1/k) for 1 < k < 13.
		

Crossrefs

Programs

  • Mathematica
    Select[Range[1000], FractionalPart[(10/9)^#] >= 1 - (1/#) &] (* G. C. Greubel, Aug 24 2016 *)

Extensions

a(8)-a(13) from Hans Havermann, Apr 04 2016

A153704 Numbers k such that the fractional part of e^k is greater than 1-(1/k).

Original entry on oeis.org

1, 8, 19, 178, 209, 1907, 32653, 119136, 220010
Offset: 1

Views

Author

Hieronymus Fischer, Jan 06 2009

Keywords

Comments

Numbers k such that fract(e^k) > 1-(1/k), where fract(x) = x-floor(x).
The next such number must be greater than 100000.
a(10) > 300,000. Robert Price, Mar 23 2019

Examples

			a(2)=8, since fract(e^8) = 0.957987... >0.875 = 1-(1/8), but fract(e^k) = 0.389..., 0.085..., 0.598..., 0.413..., 0.428..., 0.633... for 2<=k<=7 which all are less than 1-(1/k).
		

Crossrefs

Programs

  • Mathematica
    Select[Range[2000], N[FractionalPart[E^#], 1000] >= 1 - (1/#) &] (* G. C. Greubel, Aug 25 2016 *)

Extensions

a(8)-a(9) from Robert Price, Mar 23 2019

A153712 Numbers k such that the fractional part of Pi^k is greater than 1-(1/k).

Original entry on oeis.org

1, 2, 15, 22, 58, 109, 157, 1030, 1071, 1274, 2008, 2322, 5269, 151710
Offset: 1

Views

Author

Hieronymus Fischer, Jan 06 2009

Keywords

Comments

Numbers k such that fract(Pi^k) > 1-(1/k), where fract(x) = x-floor(x).
The next such number must be greater than 100000.
a(15) > 300000. - Robert Price, Mar 25 2019

Examples

			a(3) = 15, since fract(Pi^15) = 0.969... > 0.933... = 1 - (1/15), but fract(Pi^k) <= 1 - (1/k) for 3 <= k <= 14.
		

Crossrefs

Programs

  • Mathematica
    Select[Range[1000], N[FractionalPart[Pi^#], 100] > 1 - (1/#) &]  (* G. C. Greubel, Aug 25 2016 *)

Extensions

a(14) from Robert Price, Mar 25 2019
Showing 1-7 of 7 results.