login
This site is supported by donations to The OEIS Foundation.
Logo

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; internal format)
OFFSET

1,3

MATHEMATICA

k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Fibonacci[Prime[n]] - Prime[n]]], {n, 1, 100}]; k

CROSSREFS

Cf. A050937, A090819, A134787.

Sequence in context: A154645 A030641 A116280 * A167498 A160240 A069669

Adjacent sequences:  A134785 A134786 A134787 * A134789 A134790 A134791

KEYWORD

sign

AUTHOR

Artur Jasinski (grafix(AT)csl.pl), Nov 12 2007

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 15 18:57 EST 2012. Contains 205848 sequences.