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.
Select[Range[15,100000],PrimeQ[8^# - 7^(# + 1)]]
is(n)=ispseudoprime(8^n-7^(n+1)) \\ Charles R Greathouse IV, Jun 13 2017
Select[Range[0, 100000], PrimeQ[7^# - 6^(# - 1)] &]
is(n)=ispseudoprime(7^n-6^(n-1)) \\ Charles R Greathouse IV, Jun 13 2017
Select[Range[12, 100000], PrimeQ[7^# - 6^(# + 1)] &]
is(n)=ispseudoprime(7^n-6^(n+1)) \\ Charles R Greathouse IV, Jun 08 2016
Select[Range[0,100000], PrimeQ[6^n + 5^(n + 1)] &]
is(n)=ispseudoprime(6^n + 5^(n+1)) \\ Charles R Greathouse IV, Jun 10 2016
ABC2 6^$a + 5^($a+1) a: from 1 to 100000 Charles R Greathouse IV, Jun 10 2016
Select[Range[0, 100000], PrimeQ[8^# + 7^(# + 1)] &]
is(n)=ispseudoprime(8^n+7^(n+1)) \\ Charles R Greathouse IV, Jun 13 2017
[n: n in [0..500] | IsPrime(9^n+8^(n+1))]; // Vincenzo Librandi, Jul 12 2016
Select[Range[0,100000], PrimeQ[9^# + 8^(# + 1)] &]
is(n)=ispseudoprime(9^n+8^(n+1)) \\ Charles R Greathouse IV, Jun 13 2017
Comments