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[1000], PrimeQ[4*#^# - 3] &] (* Vaclav Kotesovec, Mar 25 2018 *)
for(n=0, 100, if(isprime(4*n^n-3), print1(n", ")))
Flatten[{0, Select[Range[1000], PrimeQ[4*#^# + 1] &]}] (* Vaclav Kotesovec, Mar 25 2018 *)
for(n=0, 100, if(isprime(4*n^n+1), print1(n", ")))
for(n=0, 500, if(isprime(6*n^n+5), print1(n", ")))
Select[Range[1, 1000], PrimeQ[5*#^# + 4] &] (* Vaclav Kotesovec, Apr 01 2018 *)
for(n=0, 500, if(isprime(5*n^n+4), print1(n", ")))
lista(nn) = forstep(n=1, nn, 2, if(ispseudoprime(5*n^n+4), print1(n, ", "))); \\ Altug Alkan, Apr 01 2018
Comments