%I A113480
%S A113480 0,1,105,369
%N A113480 Numbers n such that 17^n+2 is prime.
%C A113480 Only numbers of the form 6k-5 and 6k-3 need be tested.
%C A113480 Next term, if exists, is > 2500. - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Jan 28 2006
%C A113480 Next term, if exists, is > 11550. - Huseyin Azoguz (huseyin(AT)mmnetz.de), 
               Nov 30 2008
%t A113480 Do[If[PrimeQ[17^n + 2], Print[n]], {n, 0, 2500}] (Steinerberger)
%o A113480 (PARI) g2(n)= { print1(0","); forstep(x=1,n,6, if(ispseudoprime(17^x+2),
               print1(x",")); if(ispseudoprime(17^(x+2)+2),print1(x+2",")) ) }
%Y A113480 Sequence in context: A010090 A147576 A145752 this_sequence A102792 A013594 
               A160340
%Y A113480 Adjacent sequences: A113477 A113478 A113479 this_sequence A113481 A113482 
               A113483
%K A113480 nonn
%O A113480 1,3
%A A113480 Cino Hilliard (hillcino368(AT)gmail.com), Jan 09 2006