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[ Prime[ Range[1, 100000] ], PrimeQ[ (17^# - 2^#)/15 ]& ]
is(n)=ispseudoprime((17^n-2^n)/15) \\ Charles R Greathouse IV, Jun 06 2017
Select[ Prime[ Range[1, 100000] ], PrimeQ[ (19^# - 2^#)/17 ]& ]
is(n)=ispseudoprime((19^n-2^n)/17) \\ Charles R Greathouse IV, Jun 13 2017
Select[Prime[Range[1, 100000]], PrimeQ[(15^# - 4^#)/11]&]
is(n)=ispseudoprime((15^n-4^n)/11) \\ Charles R Greathouse IV, Jun 13 2017
Comments