The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A134788 If Fibonacci(prime(k)) is prime, append Fibonacci(prime(k)) - prime(k) to the sequence. 5
 -1, 0, 6, 78, 220, 1580, 28634, 514200, 433494394, 2971215026, 99194853094755414, 1066340417491710595814572038, 19134702400093278081449423780, 475420437734698220747368027166749382927701417016557193662268716376935475882 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS MATHEMATICA k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Fibonacci[Prime[n]] - Prime[n]]], {n, 1, 100}]; k fpn[n_]:=Module[{prn=Prime[n], fib}, fib=Fibonacci[prn]; If[PrimeQ[fib], fib- prn, a]]; DeleteCases[Table[fpn[i], {i, 100}], a] (* Harvey P. Dale, Mar 27 2012 *) PROG (PARI) forprime(n=1, 1000, if(isprime(fibonacci(n)), print1(fibonacci(n)-n, ", "))) \\ Edward Jiang, Nov 23 2013 CROSSREFS Cf. A050937, A090819, A134787. Sequence in context: A301834 A030641 A116280 * A167498 A250388 A231248 Adjacent sequences:  A134785 A134786 A134787 * A134789 A134790 A134791 KEYWORD sign AUTHOR Artur Jasinski, Nov 12 2007 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 20 23:00 EDT 2021. Contains 345301 sequences. (Running on oeis4.)