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[Table[3^n + n + 1, {n, 0, 150}], PrimeQ] (* T. D. Noe, Apr 25 2012 *)
a:=n->`if`(isprime(4^(2*k)+2*k+1),k,NULL): seq(a(k),k=0..5000); # Muniru A Asiru, Mar 25 2018
Flatten[{0, Select[Range[1000], PrimeQ[16^# + 2*# + 1] &]}] (* Vaclav Kotesovec, Mar 25 2018 *)
for(n=0, 500, if(isprime(4^(2*n)+2*n+1), print1(n", ")))
[k: k in [1..700] | IsPrime(3^k+k-1)];
select(k->isprime(3^k+k-1),[$1..1000]); # Muniru A Asiru, Apr 05 2018
Flatten[{Select[Range[6000], PrimeQ[3^# + # - 1] &]}]
lista(nn) = forstep(n=1, nn, 2, if(ispseudoprime(3^n + n - 1), print1(n, ", "))); \\ Altug Alkan, Apr 01 2018
Comments