%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