OFFSET
1,1
COMMENTS
All terms are prime.
The next element, a(19), is greater than 10^5.
MATHEMATICA
Select[ Prime[ Range[1, 100000] ], PrimeQ[ (9^# + 4^#)/13 ]& ]
PROG
(PARI) is(n)=ispseudoprime((9^n+4^n)/13) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Robert Price, Feb 09 2013
STATUS
approved