id:A134788 - OEIS Search Results

Search: id:A134788

Displaying 1-1 of 1 results found.

page 1

If Fibonacci(prime(k)) is prime, append Fibonacci(prime(k)) - prime(k) to the sequence.

+0
6

-1, 0, 6, 78, 220, 1580, 28634, 514200, 433494394, 2971215026, 99194853094755414, 1066340417491710595814572038, 19134702400093278081449423780, 475420437734698220747368027166749382927701417016557193662268716376935475882 (list; graph; listen)

	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.` `Adjacent sequences: A134785 A134786 A134787 this_sequence A134789 A134790 A134791` `Sequence in context: A082629 A030641 A116280 this_sequence A069669 A145359 A145360`
	KEYWORD	`sign`
	AUTHOR	`Artur Jasinski (grafix(AT)csl.pl), Nov 12 2007`

page 1

Search completed in 0.002 seconds

Last modified January 8 02:43 EST 2009. Contains 152824 sequences.

AT&T Labs Research