|
|
A118612
|
|
Denominator if the numerator and denominator of the continued fraction rational approximation of sqrt(2) are both prime.
|
|
3
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Next term, if it exists, is bigger than 489 digits (the 1279th convergent to sqrt(2)).
|
|
LINKS
|
|
|
MATHEMATICA
|
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, May 09 2006 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
frac,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|