1,1
Primes of the form A001654(k)-3 for any k (actually k= 3, 5, 6, 9, 21, 45, 129, 266, 329, 330, 366, 429, 549, 570, 725, 882, 945,...)
Table of n, a(n) for n=1..8.
q=0; lst={}; Do[f=Fibonacci[n]; If[PrimeQ[f*q-3], AppendTo[lst, f*q-3]]; q=f, {n, 6!}]; lst
Cf. A001654, A163154, A163155
Sequence in context: A030460 A300636 A301358 * A041067 A046867 A154823
Adjacent sequences: A163153 A163154 A163155 * A163157 A163158 A163159
nonn
Vladimir Joseph Stephan Orlovsky, Jul 21 2009
approved
