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