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.
[k: k in [0..300] | IsPrime(5^k + k^5 - 1)];
Select[Range[0, 3000], PrimeQ[5^# + #^5 - 1] &]
is(n)=ispseudoprime(5^n+n^5-1) \\ Charles R Greathouse IV, Jun 13 2017
[n: n in [0..1000] | IsPrime(13^n+n^13-1)];
Select[Range[0, 5000], PrimeQ[13^# + #^13 - 1] &]
is(n)=ispseudoprime(13^n+n^13-1) \\ Charles R Greathouse IV, Jun 13 2017
[n: n in [0..800] | IsPrime(4^n+n^4-1)];
Select[Range[0, 5000], PrimeQ[4^# + #^4 - 1] &]
is(n)=ispseudoprime(4^n+n^4-1) \\ Charles R Greathouse IV, Jun 13 2017
8^0 + 0^8 + 1 = 2, which is prime, so 0 is in the sequence.
Select[Range[0, 10000], PrimeQ[8^# + #^8 + 1] &]
is(n)=ispseudoprime(8^n+n^8+1) \\ Charles R Greathouse IV, Jun 13 2017
Comments