OFFSET
1,1
MAPLE
with(combinat): a[1]:=2: for n from 2 to 15 do p:=proc(k) if isprime(a[n-1]+fibonacci(k))=true then a[n-1]+fibonacci(k) else fi end: a[n]:=[seq(p(k), k=1..500)][1] od: seq(a[n], n=1..15); # Emeric Deutsch, Jul 28 2005
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 23 2005
EXTENSIONS
More terms from Emeric Deutsch, Jul 28 2005
STATUS
approved