OFFSET
1,1
COMMENTS
All terms are prime.
Next term > 10^5.
MATHEMATICA
Select[Prime[Range[1, 100000]], PrimeQ[(11^# - 4^#)/7]&]
PROG
(PARI) is(n)=ispseudoprime((11^n-4^n)/7) \\ Charles R Greathouse IV, Feb 20 2017
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Robert Price, Mar 11 2013
STATUS
approved