This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A271729 #17 Sep 08 2022 08:46:16 %S A271729 1,2,6,8,14,16,32,40,66,88,112,120,146,158,318,514,630,638,680,710, %T A271729 1054,1630,2198,2466,2696,2994,3138,3654,3958,5558,7008,11416,11632, %U A271729 13510,19752,24480 %N A271729 Numbers n such that 2*Fibonacci(n+2)+((-1)^n-3)/2 is a prime. %C A271729 These numbers are the positions of prime numbers in A066629. %p A271729 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 %t A271729 Select[Range[10000], PrimeQ[(2 Fibonacci[# + 2] + ((-1)^# - 3) / 2)] &] %o A271729 (Magma) [n: n in [0..2000] | IsPrime(2*Fibonacci(n+2)+((-1)^n-3) div 2)]; %o A271729 (PARI) lista(nn) = for(n=1, nn, if(ispseudoprime(2*fibonacci(n+2)+((-1)^n-3)/2), print1(n, ", "))); \\ _Altug Alkan_, Apr 13 2016 %Y A271729 Cf. A066629. %K A271729 nonn,more %O A271729 1,2 %A A271729 _Vincenzo Librandi_, Apr 13 2016