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

%I #13 Nov 20 2017 05:32:26

%S 2,8,34,10946,17711,75025,5702887,9227465,24157817,63245986,102334155,

%T 165580141,267914296,701408733,12586269025,53316291173,139583862445,

%U 225851433717,2504730781961,17167680177565,44945570212853

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

%H G. C. Greubel, <a href="/A116618/b116618.txt">Table of n, a(n) for n = 1..1000</a>

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

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

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

%K nonn

%O 1,1

%A _Roger L. Bagula_, Mar 29 2006

%E Edited by _N. J. A. Sloane_, Apr 05 2006