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

A354676 a(n) = number of near-Wieferich primes with |A| <= 100 less than 10^n.

Original entry on oeis.org

3, 24, 105, 154, 213, 243, 268, 288, 307
Offset: 1

Views

Author

Felix Fröhlich, Jun 02 2022

Keywords

Comments

n | a(n) | A006880(n) | a(n)/A006880(n)*100
--------------------------------------------
1 | 3 | 4 | 75.000000
2 | 24 | 25 | 96.000000
3 | 105 | 168 | 62.500000
4 | 154 | 1229 | 12.530512
5 | 213 | 9592 | 2.220600
6 | 243 | 78498 | 0.309562
7 | 268 | 664579 | 0.040326
8 | 288 | 5761455 | 0.004998
9 | 307 | 50847534 | 0.000603

Crossrefs

Cf. A006880, A195988, A246568, A258367, A353141, A354675, A354677, A354678.

Programs

  • PARI
    a258367(n) = abs(centerlift(Mod(2, n^2)^((n-1)/2))\/n) \\ after Charles R Greathouse IV in A258367
my(i=0, x=10); forprime(p=3, , if(p > x, print1(i, ", "); x=10*x); if(a258367(p) <= 100, i++))

A354677 a(n) = number of near-Wieferich primes with |A| <= 1000 less than 10^n.

Original entry on oeis.org

3, 24, 167, 698, 1155, 1502, 1812, 2064, 2297
Offset: 1

Views

Author

Felix Fröhlich, Jun 02 2022

Keywords

Comments

n | a(n) | A006880(n) | a(n)/A006880(n)*100
--------------------------------------------
1 | 3 | 4 | 75.000000
2 | 24 | 25 | 96.000000
3 | 167 | 168 | 99.404761
4 | 698 | 1229 | 56.794141
5 | 1155 | 9592 | 12.041284
6 | 1502 | 78498 | 1.913424
7 | 1812 | 664579 | 0.272653
8 | 2064 | 5761455 | 0.035824
9 | 2297 | 50847534 | 0.004517

Crossrefs

Cf. A006880, A195988, A246568, A258367, A353141, A354675, A354676, A354678.

Programs

  • PARI
    a258367(n) = abs(centerlift(Mod(2, n^2)^((n-1)/2))\/n) \\ after Charles R Greathouse IV in A258367
my(i=0, x=10); forprime(p=3, , if(p > x, print1(i, ", "); x=10*x); if(a258367(p) <= 1000, i++))

A354678 a(n) = number of near-Wieferich primes with |A| <= 10000 less than 10^n.

Original entry on oeis.org

3, 24, 167, 1228, 5250, 8851, 11922, 14549, 16863
Offset: 1

Views

Author

Felix Fröhlich, Jun 02 2022

Keywords

Comments

n | a(n) | A006880(n) | a(n)/A006880(n)*100
---------------------------------------------
1 | 3 | 4 | 75.000000
2 | 24 | 25 | 96.000000
3 | 167 | 168 | 99.404761
4 | 1228 | 1229 | 99.918633
5 | 5250 | 9592 | 54.733110
6 | 8851 | 78498 | 11.275446
7 | 11922 | 664579 | 1.793917
8 | 14549 | 5761455 | 0.252523
9 | 16863 | 50847534 | 0.033163

Crossrefs

Cf. A006880, A195988, A246568, A258367, A353141, A354675, A354676, A354677.

Programs

  • PARI
    a258367(n) = abs(centerlift(Mod(2, n^2)^((n-1)/2))\/n) \\ after Charles R Greathouse IV in A258367
my(i=0, x=10); forprime(p=3, , if(p > x, print1(i, ", "); x=10*x); if(a258367(p) <= 10000, i++))
Showing 1-3 of 3 results.

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

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