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[ (13^# + 4^#)/17 ]& ]
is(n)=ispseudoprime((13^n+4^n)/17) \\ Charles R Greathouse IV, Jun 06 2017
Select[ Prime[ Range[1, 100000] ], PrimeQ[ (15^# + 4^#)/19 ]& ]
is(n)=ispseudoprime((15^n+4^n)/19) \\ Charles R Greathouse IV, Jun 06 2017
k=16; Do[p=Prime[n]; f=(k^p+5^p)/(k+5); If[ PrimeQ[f], Print[p] ], {n, 1, 9592}]
is(n)=ispseudoprime((16^n+5^n)/21) \\ Charles R Greathouse IV, Jun 13 2017
Comments