|
%I #13 Jan 26 2017 02:44:19
%S 52,60,65,74,75,76,85,108,111,121,124,125,127,131,132,140,144,150,153,
%T 156,158,172,175,180,183,185,195,201,209,213,216,220,225,250,263,287
%N Integers n such that A264137(n) < A060385(n).
%C For all corresponding values of n, A000129(n) is a composite number. In other words, n cannot be a term of A096650.
%e 52 is a term because A264137(52) = 66923 < A060385(52) = 90481.
%o (PARI) a060385(n) = my(f=factor(fibonacci(n))[, 1]); f[#f];
%o a000129(n) = ([2, 1; 1, 0]^n)[2, 1];
%o a264137(n) = my(p=factor(a000129(n))[, 1]); p[#p];
%o lista(nn) = for(n=3, nn, if(a264137(n) < a060385(n), print1(n, ", ")));
%Y Cf. A060385, A264137.
%K nonn,more
%O 1,1
%A _Altug Alkan_, Apr 03 2016
|
