1,1

These numbers are rare.

(PARI) cfracnum(m, f) = { cfr = vector(10000); x=f; for(n=0, m, i=floor(x); x=1/(x-i); cfr[n+1] = i; ); for(m1=0, m, r=cfr[m1+1]; forstep(n=m1, 1, -1, r = 1/r; r+=cfr[n]; ); numer=numerator(r); denom=denominator(r); if(isprime(numer) & isprime(denom), print1(numer", ")); ) }

Sequence in context: A018971 A006383 A080581 this_sequence A101412 A019018 A018993

Adjacent sequences: A086394 A086395 A086396 this_sequence A086398 A086399 A086400

nonn

Cino Hilliard (hillcino368(AT)gmail.com), Sep 06 2003