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 A241568 #29 Aug 05 2019 02:49:35 %S A241568 0,0,1,1,1,2,2,3,1,3,2,4,2,4,2,5,3,3,5,3,4,2,5,2,4,4,3,4,3,5,3,2,5,4, %T A241568 7,2,6,5,4,4,5,4,3,4,7,4,4,4,5,6,4,3,5,4,3,3,3,3,3,5,6,7,8,2,5,7,6,3, %U A241568 5,7,5,3,4,4,6,3,6,7,4,3 %N A241568 a(n) = |{0 < k < prime(n)/2: k is not only a quadratic nonresidue modulo prime(n) but also a Fibonacci number}|. %C A241568 Conjecture: (i) a(n) > 0 for all n > 2. In other words, for any prime p > 3, there is a Fibonacci number among 1, ..., (p-1)/2 which is a quadratic nonresidue modulo p. %C A241568 (ii) For any n > 2, there is a prime q < prime(n) such that the q-th Fibonacci number is a quadratic nonresidue modulo prime(n). %C A241568 (iii) For any odd prime p, there is a Lucas number (i.e., a term of A000032) smaller than p which is a quadratic nonresidue modulo p. %C A241568 We have checked part (i) for all primes p < 3*10^9, part (ii) for n up to 10^8, and part (iii) for the first 10^7 primes. %C A241568 See also A241604 for a sequence related to part (i) of the conjecture. %H A241568 Zhi-Wei Sun, <a href="/A241568/b241568.txt">Table of n, a(n) for n = 1..10000</a> %H A241568 Z.-W. Sun, <a href="http://arxiv.org/abs/1405.0290">New observations on primitive roots modulo primes</a>, arXiv preprint arXiv:1405.0290 [math.NT], 2014. %e A241568 a(3) = 1 since F(3) = 2 is a quadratic nonresidue modulo prime(3) = 5, where F(n) denotes the n-th Fibonacci number. %e A241568 a(4) = 1 since F(4) = 3 is a quadratic nonresidue modulo prime(4) = 7. %e A241568 a(5) = 1 since F(3) = 2 is a quadratic nonresidue modulo prime(5) = 11. %e A241568 a(9) = 1 since F(5) = 5 is a quadratic nonresidue modulo prime(9) = 23. %t A241568 f[k_]:=Fibonacci[k] %t A241568 Do[m=0;Do[If[f[k]>Prime[n]/2,Goto[aa]];If[JacobiSymbol[f[k],Prime[n]]==-1,m=m+1];Continue,{k,2,(Prime[n]+1)/2}]; Label[aa];Print[n," ",m];Continue,{n,1,80}] %Y A241568 Cf. A000040, A000032, A000045, A236966, A239957, A239963, A241492, A241504, A241516, A241604. %K A241568 nonn %O A241568 1,6 %A A241568 _Zhi-Wei Sun_, Apr 25 2014