OFFSET
1,3
COMMENTS
a(9) > 10000. - Jinyuan Wang, Feb 12 2019
LINKS
Eric L. F. Roettger, A Cubic Extension of the Lucas Functions, Ph. D. Dissertation, Dept. Math. and Statistics, Univ. Calgary, 2009 (see page 196).
MAPLE
select(isprime, [seq(7*2^(2*n)-5*2^n+1, n=0..1000)]); # Jinyuan Wang, Feb 12 2019
MATHEMATICA
Select[Range[0, 3000], PrimeQ[7 2^(2 #) - 5 2^# + 1]&]
PROG
(PARI) for(n=0, 10^6, if(ispseudoprime(7*2^(2*n)-5*2^n+1), print1(n, ", "))); \\ Joerg Arndt, Jul 14 2013
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Jul 14 2013
EXTENSIONS
a(8) from Jinyuan Wang, Feb 12 2019
a(9) from Michael S. Branicky, Apr 23 2023
STATUS
approved