|
%I #4 Mar 30 2012 17:31:10
%S 0,1,1,1,21,1,3,36,3,1,1,6,2,1,1,1,1,3,1,44,1,3,3,4,13,1,4,7,1,1,3,1,
%T 3,1,4,2,1,1,1,17,5,1,9,1,1,6,1,6,12,3,5,1,1,8,1,3,30,1,4,4,1,2,2,7,1,
%U 7,1,16,7,8,7,1,51,1,1,1,240,7,1,2,1,1,1,7,4,1,10,19,3,1,6,1,22,1,6,1,1,2,5
%N Continued fraction expansion of A102522.
%C Increasing PQ's are: 1,21,36,44,51,240,298,999,2004,18156,130055, ...
%t ContinuedFraction[ FromDigits[ {Join[{1}, Table[ If[ xx[[n]] > 0, 1, 0], {n, 1000}]], 0}, 2]]
%Y Cf. A100060, A102522.
%K cofr,nonn
%O 1,5
%A _Gary W. Adamson_ and _Robert G. Wilson v_, Jan 13 2005
|
