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 A128163 #20 Nov 21 2024 20:18:02
%S A128163 5,7,9,11,13,14,15,26,30,53,66,82,155,189,225,261,625,870,1071,7655,
%T A128163 8191,8883,9226,12246,70274,71595,108009,127077
%N A128163 Numbers k such that A128162(k) is prime.
%C A128163 Corresponding primes in A128162 are {3, 3, 31, 37, 137, 347, 487, 77951, 166409, 13506083561, ...}.
%t A128163 Do[f=PowerMod[3,n,Fibonacci[n]];If[PrimeQ[f],Print[{n,f}]],{n,1,1071}]
%t A128163 Select[Range[72000],PrimeQ[PowerMod[3,#,Fibonacci[#]]]&] (* _Harvey P. Dale_, Sep 11 2019 *)
%o A128163 (PARI) is(n)=ispseudoprime(3^n%fibonacci(n)) \\ _Charles R Greathouse IV_, Jun 19 2017
%o A128163 (PFGW)
%o A128163 ABC2 3^$a % F($a)
%o A128163 a: from 5 to 1000000
%o A128163 // _Charles R Greathouse IV_, Jun 19 2017
%Y A128163 Cf. A128162 (3^n modulo Fibonacci(n)), A128161, A057862 (2^n modulo Fibonacci(n)).
%K A128163 hard,more,nonn
%O A128163 1,1
%A A128163 _Alexander Adamchuk_, Feb 19 2007
%E A128163 Corrected and extended by _Stefan Steinerberger_, Jun 10 2007
%E A128163 a(25)-a(26) from _Donovan Johnson_, Sep 03 2008
%E A128163 a(27)-a(28) from _Michael S. Branicky_, Nov 21 2024