1,1

Next term, if it exists, is bigger than 489 digits (the 1279th convergent to sqrt(2)).

For[n = 2, n < 1500, n++, a := Join[{1}, Table[2, {i, 2, n}]]; If[PrimeQ[Denominator[FromContinuedFraction[a]]], If[PrimeQ[Numerator[FromContinuedFraction[a]]], Print[Denominator[FromContinuedFraction[a]]]]]] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), May 09 2006

A086397 has the numerators. This sequence is a subsequence of A000129, A086383 and A101411.

Sequence in context: A121910 A073833 A086383 this_sequence A158866 A101078 A109739

Adjacent sequences: A118609 A118610 A118611 this_sequence A118613 A118614 A118615

frac,nonn

Joshua Zucker (joshua.zucker(AT)stanfordalumni.org), May 08 2006