|
%I #13 Oct 19 2017 03:14:20
%S 8,42,88,174,232,242,248,282,322,462,488,568,572,638,646,658,682,754,
%T 796,884,902,968,1266,1302,1342,1562,1612,1672,1722,1798,1806,1974,
%U 1978,2108,2158,2162,2378,2542,2728,2756,2886,3102,3542,3638,3666,3738,3782
%N Numbers n such that n/2 is composite and F(n^2+1)==5 (mod n) where F(k) denotes the k-th Fibonacci number.
%t Select[Range[4000],CompositeQ[#/2]&&Mod[Fibonacci[#^2+1],#]==5&] (* _Harvey P. Dale_, Jan 11 2017 *)
%o (PARI) isok(n) = !(n%2) && !isprime(n/2) && ((fibonacci(n^2+1) % n) == 5); \\ _Michel Marcus_, Dec 06 2013
%Y Cf. A086367.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Sep 06 2003
%E More terms from _Don Reble_, Sep 16 2003
%E More terms from _Michel Marcus_, Dec 06 2013
|
