A271729 Numbers n such that 2*Fibonacci(n+2)+((-1)^n-3)/2 is a prime.

1, 2, 6, 8, 14, 16, 32, 40, 66, 88, 112, 120, 146, 158, 318, 514, 630, 638, 680, 710, 1054, 1630, 2198, 2466, 2696, 2994, 3138, 3654, 3958, 5558, 7008, 11416, 11632, 13510, 19752, 24480

Offset

1,2

Comments

These numbers are the positions of prime numbers in A066629.

Links

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

Maple

with(combinat): A271729:=n->`if`(isprime(2*fibonacci(n+2)+((-1)^n-3)/2), n, NULL): seq(A271729(n), n=1..3*10^3); # Wesley Ivan Hurt, Apr 13 2016

Mathematica

Select[Range[10000], PrimeQ[(2 Fibonacci[# + 2] + ((-1)^# - 3) / 2)] &]

Prog

(Magma) [n: n in [0..2000] | IsPrime(2*Fibonacci(n+2)+((-1)^n-3) div 2)];
(PARI) lista(nn) = for(n=1, nn, if(ispseudoprime(2*fibonacci(n+2)+((-1)^n-3)/2), print1(n, ", "))); \\ Altug Alkan, Apr 13 2016

Crossrefs

Cf. A066629.

Sequence in context: A213364 A212124 A213374 * A249624 A104636 A212014

Adjacent sequences: A271726 A271727 A271728 * A271730 A271731 A271732

Keyword

nonn,more

Author

Vincenzo Librandi, Apr 13 2016

Status

approved