1,1
a={}; Do[p=(4^n+5^n)/9; If[PrimeQ[p], AppendTo[a, p]], {n, 1, 12^2}]; a
Select[Table[(4^n+5^n)/9, {n, 160}], PrimeQ] (* From Harvey P. Dale, Oct 22 2011 *)
Cf. A128335.
Sequence in context: A048923 A107973 A142832 * A107121 A101734 A059025
Adjacent sequences: A138953 A138954 A138955 * A138957 A138958 A138959
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 16 2008