%I #13 Jun 13 2017 10:32:26
%S 41,97,1459,89227,91837
%N Numbers n such that (17^n + 16^n)/33 is prime.
%C All terms are primes.
%C a(6) > 10^5.
%t Select[ Prime[ Range[1, 100000] ], PrimeQ[ (17^# + 16^#)/33 ]& ]
%o (PARI) is(n)=ispseudoprime((17^n+16^n)/33) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A227170, A221637, A228558, A227046.
%K hard,nonn,more
%O 1,1
%A _Robert Price_, Aug 25 2013