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.
is(n)=ispseudoprime(3^n+3*n+1) \\ Charles R Greathouse IV, Jun 13 2017
Flatten[{0, Select[Range[1000], PrimeQ[5^# + 5*# + 1] &]}] (* Vaclav Kotesovec, Mar 25 2018 *)
for(n=0, 500, if(isprime(5^n+5*n+1), print1(n", ")))
[n: n in [0..1000] |IsPrime(2^n-2*n+1)]; // Vincenzo Librandi, Mar 27 2018
select(k->isprime(2^k-2*k+1),[$0..3000]); # Muniru A Asiru, Apr 03 2018
Select[Range[0, 1000], PrimeQ[2^# - 2*# + 1] &]
isok(n) = isprime(2^n-2*n+1); \\ Michel Marcus, Mar 27 2018
Comments