A116618 Values of Fibonacci(n) for n such that prime(2n) mod 12 = 1.

2, 8, 34, 10946, 17711, 75025, 5702887, 9227465, 24157817, 63245986, 102334155, 165580141, 267914296, 701408733, 12586269025, 53316291173, 139583862445, 225851433717, 2504730781961, 17167680177565, 44945570212853

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Example

10946 is in the sequence because 10946=Fibonacci(21), the 42nd prime is 181 and 181 mod 12 = 1.

Maple

with(combinat): a:=proc(n) if ithprime(2*n) mod 12 = 1 then fibonacci(n) else fi end: seq(a(n), n=1..86);

Mathematica

A116618 := Select[Range[1, 500], Mod[Prime[2*#], 12] == 1 &]; Table[ Fibonacci[A116618[[n]]], {n, 1, 50}] (* G. C. Greubel, Nov 19 2017 *)

Crossrefs

Sequence in context: A013026 A121789 A057900 * A037723 A037618 A326294

Adjacent sequences: A116615 A116616 A116617 * A116619 A116620 A116621

Keyword

nonn

Author

Roger L. Bagula, Mar 29 2006

Extensions

Edited by N. J. A. Sloane, Apr 05 2006

Status

approved