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.
5 is a member since 8^5 - 7^4 = 32768 - 2401 = 30367 which is a prime number.
Select[Range[0, 100000], PrimeQ[8^# - 7^(# - 1)] &]
is(n)=ispseudoprime(8^n-7^(n-1)) \\ Charles R Greathouse IV, Jun 13 2017
3 is a member since 5^3 - 4^2 = 125 - 16 = 109 which is a prime number.
Select[Range[0, 100000], PrimeQ[5^# - 4^(# - 1)] &]
is(n)=ispseudoprime(5^n-4^(n-1)) \\ Charles R Greathouse IV, Jun 13 2017
7 is a member since 5^7 - 4^8 = 78125 - 65536 = 12589 which is a prime number.
Select[Range[0, 100000], PrimeQ[5^# - 4^(# + 1)] &]
is(n)=ispseudoprime(5^n-4^(n+1)) \\ Charles R Greathouse IV, Jun 13 2017
9 is a member since 6^9 - 5^10 = 10077696 - 9765625 = 312071 which is a prime number.
Select[Range[0, 100000], PrimeQ[6^# - 5^(# + 1)] &]
is(n)=ispseudoprime(6^n-5^(n+1)) \\ Charles R Greathouse IV, Jun 13 2017
6 is a member since 5^6 + 4^7 = 15625 + 16384 = 32009 which is a prime number.
Select[Range[0, 100000], PrimeQ[5^# + 4^(# + 1)] &]
lista(nn) = for(n=0, nn, if(ispseudoprime(5^n + 4^(n+1)), print1(n, ", "))); \\ Altug Alkan, Jul 03 2016
3 is a member since 10^3 + 9^4 = 1000 + 6561 = 7561 which is a prime number.
Select[Range[0, 100000], PrimeQ[10^# + 9^(# + 1)] &]
is(n)=ispseudoprime(10^n+9^(n+1)) \\ Charles R Greathouse IV, Jun 13 2017
Comments