|
Search: id:A101412
|
|
|
| A101412 |
|
Numerator if the numerator and denominator of the continued fraction rational approximation of sqrt(2) are both prime. |
|
+0 2
|
| |
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Next term, if it exists, is bigger than 489 digits (the 1279th convergent to sqrt(2)). - Joshua Zucker (joshua.zucker(AT)stanfordalumni.org), May 08 2006
|
|
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[Numerator[FromContinuedFraction[a]]]]]] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), May 09 2006
|
|
PROGRAM
|
(PARI) cfracnumdenomprime(m, f) = { default(realprecision, 3000); cf = vector(m+10); x=f; for(n=0, m, i=floor(x); x=1/(x-i); cf[n+1] = i; ); for(m1=0, m, r=cf[m1+1]; forstep(n=m1, 1, -1, r = 1/r; r+=cf[n]; ); numer=numerator(r); denom=denominator(r); if(ispseudoprime(numer)&&ispseudoprime(denom), print1(numer", "); numer2=numer; denom2=denom); ) default(realprecision, 28); }
|
|
CROSSREFS
|
Sequence in context: A006383 A080581 A086397 this_sequence A019018 A018993 A100837
Adjacent sequences: A101409 A101410 A101411 this_sequence A101413 A101414 A101415
|
|
KEYWORD
|
frac,more,nonn
|
|
AUTHOR
|
Cino Hilliard (hillcino368(AT)gmail.com), Jan 15 2005
|
|
|
Search completed in 0.002 seconds
|