|
%I #6 Jun 24 2014 01:08:22
%S 1,2,3,13,144,28657,701408733,679891637638612258,
%T 394810887814999156320699623170776339,
%U 215414832505658809004682396169711233230800418578767753330908886771798637
%N a(1) = 1, a(n) is the smallest Fibonacci number of the form k*a(n-1) + 1 with k>0.
%e a(5) = 144 = 11*13 + 1, a(4) = 13.
%t a[1]=1; a[n_] := a[n]=For[r=3, True, r++, If[Mod[Fibonacci[r]-1, a[n-1]]==0, Return[Fibonacci[r]]]]
%K nonn
%O 1,2
%A _Amarnath Murthy_, Feb 18 2002
%E Edited by _Dean Hickerson_, Feb 20 2002
|
