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[0, 100000], PrimeQ[7^# - 6^(# - 1)] &]
is(n)=ispseudoprime(7^n-6^(n-1)) \\ Charles R Greathouse IV, Jun 13 2017
25 is a term since 10^25 - 9^26 = 3538918110773326701067759, which is a prime number.
Select[Range[21, 100000], PrimeQ[10^# - 9^(# + 1)] &]
is(n)=ispseudoprime(10^n-9^(n+1)) \\ Charles R Greathouse IV, Jun 08 2016
5 is a member since 4^5 + 3^6 = 1024 + 729 = 1753 which is a prime number.
[n: n in [1..700] | IsPrime(4^n + 3^(n+1))]; // Vincenzo Librandi, Jul 03 2016
Select[Range[0, 100000], PrimeQ[4^# + 3^(# + 1)] &]
lista(nn) = for(n=1, nn, if(ispseudoprime(4^n + 3^(n+1)), print1(n, ", "))); \\ Altug Alkan, Jul 02 2016
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