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
[n: n in [1..10000] |IsPrime((11^n + 6^n)/17)]
Select[Range[1, 10000], PrimeQ[(11^# + 6^#)/17] &]
for(n=1, 10000, if(isprime((11^n + 6^n)/17), print1(n, ", ")))
Comments