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.
Flatten[{0, Select[Range[1000], PrimeQ[4*#^# + 3] &]}] (* Vaclav Kotesovec, Mar 25 2018 *)
for(n=0, 100, if(isprime(4*n^n+3), print1(n", ")))
a:=k->`if`(isprime(4*k^k+1),4*k^k+1,NULL): seq(a(k),k=1..1400); # Muniru A Asiru, Mar 25 2018
Select[Table[4n^n+1,{n,30}],PrimeQ] (* Harvey P. Dale, Oct 06 2023 *)
Flatten[{0, Select[Range[1000], PrimeQ[16*#^# + 1] &]}] (* Vaclav Kotesovec, Mar 25 2018 *)
for(n=0, 1000, if(isprime(16*n^n+1), print1(n", ")))
Comments