%I #26 Sep 14 2015 14:57:39
%S 13,97,59149,31381060093,12157665459056930401
%N Primes of the form 3^n + n^2.
%C The next term (a(6)) has 146 digits; a(7) has 755 digits. - _Harvey P. Dale_, May 21 2013
%H Charles R Greathouse IV, <a href="/A075899/b075899.txt">Table of n, a(n) for n = 1..7</a>
%t f[n_]:=3^n+n^2; lst={};Do[If[PrimeQ[f[n]],AppendTo[lst,f[n]]],{n,3*5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jul 24 2009 *)
%t Select[Table[3^n+n^2,{n,0,2000}],PrimeQ] (* _Harvey P. Dale_, May 21 2013 *)
%o (PARI) list(lim)=my(v=List(),t); forstep(n=2,logint(lim\1,3),2, if(ispseudoprime(t=3^n+n^2) && t<=lim, listput(v,t))); Vec(v) \\ _Charles R Greathouse IV_, Sep 14 2015
%o (PARI) is(n)=my(e=logint(n,3)); e%2==0 && n==3^e+e^2 && isprime(n) \\ _Charles R Greathouse IV_, Sep 14 2015
%Y Cf. A075898 (for the corresponding n).
%K nonn
%O 1,1
%A _Zak Seidov_, Oct 17 2002
%E a(6) (moved to b-file) from _Vladimir Joseph Stephan Orlovsky_, Jul 24 2009
|