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^k - k, {k, 2, 200, 2}], PrimeQ] (* Bruno Berselli, Apr 07 2013 *)
Select[Table[7^k - k, {k, 2, 1000, 2}], PrimeQ] (* Bruno Berselli, Apr 07 2013 *)
A224469:=proc(q) local n; for n from 1 to q do if isprime(8^n-n) then print(8^n-n); fi; od; end: A224469(100); # Paolo P. Lava, Apr 19 2013
Select[Table[8^n - n, {n, 500}], PrimeQ] (* Alonso del Arte, Apr 06 2013 *)
[a: n in [0..400] | IsPrime(a) where a is 5^n-n];
Select[Table[5^n - n, {n, 400}], PrimeQ]
forstep(n=2,1e4,2, if(ispseudoprime(t=5^n-n), print1(t", "))) \\ Charles R Greathouse IV, Jun 08 2016
Comments