%I #12 Apr 10 2024 03:39:54
%S 3,7,17,21,47,329,987,2207,5777,15005,98209,103729,726103,2178309,
%T 4870847,598364773,10749959329,192900153617,505248088463,
%U 3536736619241,10610209857723,23725150497407,1114384187445409,18944531186571953
%N Numbers of the form Fibonacci(p^c)/Fibonacci(p^b), where p is some prime and 1<=b<c are two integer exponents.
%C By inserting dummy factors Fibonacci(p^d)/Fibonacci(p^d) for all intermediate exponents b < d < c it becomes obvious that each entry is a product of factors taken from A181419.
%H Robert Israel, <a href="/A181420/b181420.txt">Table of n, a(n) for n = 1..125</a>
%p N:= 10^40: # for terms <= N
%p S:= {}: p:= 1:
%p do
%p p:= nextprime(p);
%p L:= [combinat:-fibonacci(p)];
%p for k from 2 do
%p v:= combinat:-fibonacci(p^k);
%p if v/L[-1]>N then break fi;
%p L:= [op(L), v];
%p for j from k-1 to 1 by -1 do
%p r:= v/L[j];
%p if r < N then S:= S union {r} fi;
%p od;
%p od;
%p if k = 2 then break fi;
%p od:
%p sort(convert(S,list)); # _Robert Israel_, Apr 09 2024
%Y Cf. A000045, A181419, A181393
%K nonn
%O 1,1
%A _Vladimir Shevelev_, Oct 18 2010
%E 10749959329 inserted by _R. J. Mathar_, Oct 22 2010
|