OFFSET
1,1
COMMENTS
a(26) > 4.34448*10^41. - Michael S. Branicky, Apr 12 2022
LINKS
Jeremy F. Alm and Taylor Herald, A Note on Prime Fibonacci Sequences, Fibonacci Quart. 54 (2016), no. 1, 55-58.
PROG
(Python)
from sympy import isprime, factorint
from itertools import islice
def rem2(n):
while n%2 == 0: n //= 2
return n
def agen():
b, c = 11, 19
yield 11
while True:
yield c
k = (c+2)//b + 1
m = b*k
while not isprime(m-c) or min(factorint(rem2(k)), default=b+1) < b:
m += b
k += 1
b, c = c, m-c
print(list(islice(agen(), 17))) # Michael S. Branicky, Apr 12 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Apr 11 2022
EXTENSIONS
a(18)-a(25) from Michael S. Branicky, Apr 11 2022
STATUS
approved