A134789 -id:A134789 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Search: a134789 -id:a134789

Displaying 1-4 of 4 results found.

page 1

Sort: relevance | references | number | modified | created Format: long | short | data

A134790

Floor(prime Fibonacci(Prime(k))/Prime(k)).

+10
4

0, 1, 1, 8, 17, 93, 1245, 17732, 10081265, 63217341, 1195118711985005, 8140003186959622868813528, 139669360584622467747806013, 1324290912910022899017738237233285189213652972190967113265372469016533360

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,4

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..22

EXAMPLE

17732 is in the sequence because floor(514229/29) = 17732, where 29 is the 10th prime number and 514229 = Fibonacci(29) is also a prime. - Bruno Berselli, Jul 10 2012

MATHEMATICA

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

CROSSREFS

Cf. A050937, A090819, A134787, A134788, A134789.

Cf. A000040, A000045, A075737.

KEYWORD

nonn

AUTHOR

Artur Jasinski, Nov 12 2007

STATUS

approved

A134791

Floor Log[(prime Fibonacci[Prime[k]]/Prime[k])].

+10
1

-1, 0, 0, 2, 2, 4, 7, 9, 16, 17, 34, 57, 60, 166, 200, 201, 209, 237, 266, 267

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,4

LINKS

Table of n, a(n) for n=1..20.

MATHEMATICA

k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Floor[Log[Fibonacci[Prime[n]]/Prime[n]]]]], {n, 1, 200}]; k

CROSSREFS

Cf. A050937, A090819, A134787, A134788, A134789, A134790.

KEYWORD

sign

AUTHOR

Artur Jasinski, Nov 12 2007

STATUS

approved

A134792

Round Log[(prime Fibonacci[Prime[k]]/Prime[k])].

+10
0

0, 0, 1, 2, 3, 5, 7, 10, 16, 18, 35, 57, 60, 166, 201, 201, 209, 238, 267, 268

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,4

LINKS

Table of n, a(n) for n=1..20.

MATHEMATICA

k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Round[Log[Fibonacci[Prime[n]]/Prime[n]]]]], {n, 1, 200}]; k

CROSSREFS

Cf. A050937, A090819, A134787, A134788, A134789, A134790, A134791.

KEYWORD

nonn

AUTHOR

Artur Jasinski, Nov 12 2007

STATUS

approved

A135724

Fibonacci numbers whose indices are prime Fibonacci numbers: a(n) = Fibonacci(A001605(n)).

+10
0

1, 2, 5, 233, 1779979416004714189, 2211236406303914545699412969744873993387956988653

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

The only known prime numbers in this sequence are 2,5,233.

The next term (a(6)) has 334 digits. - Harvey P. Dale, Apr 28 2023

LINKS

Table of n, a(n) for n=1..6.

MATHEMATICA

a = {}; b = {}; Do[If[PrimeQ[c = Fibonacci[n]], w = Fibonacci[Fibonacci[n]]; AppendTo[a, w]; AppendTo[b, n]], {n, 1, 31}]; a (* Artur Jasinski *)

Fibonacci[#]&/@Select[Fibonacci[Range[20]], PrimeQ] (* Harvey P. Dale, Apr 28 2023 *)

CROSSREFS

Cf. A000045, A135723, A134787, A134788, A134789, A134790.

KEYWORD

nonn,base

AUTHOR

Artur Jasinski, Nov 26 2007

EXTENSIONS

Corrected by Harvey P. Dale, Apr 28 2023

STATUS

approved

page 1

Search completed in 0.008 seconds