%I #10 Feb 17 2017 17:00:03
%S 3,53,83,487,743
%N Numbers n such that (7^n + 6^n)/13 is prime.
%C All terms are prime.
%C a(6) > 10^5
%t Select[ Prime[ Range[100000] ], PrimeQ[ (7^# + 6^#)/13 ]& ]
%o (PARI) is(n)=ispseudoprime((7^n+6^n)/13) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y Cf. A181141, A128336, A128337.
%K more,hard,nonn
%O 1,1
%A _Robert Price_, Jan 06 2013
|