%I A085963
%S A085963 3,5,5,3,7,5,7,5,3,7,11,11,7,5,7,11,5,11,3,7,13,11,13,11,7,13,5,7,11,13,
%T A085963 5,11,3,7,13,17,13,17,11,13,11,7,17,13,5,17,7,11,13,5,11,17,3,7,17,13,
%U A085963 19,17,13,19,17,11,13,19,11,7,17,19,13,5,17,7,11,13,19,5,11,17,3,19,7
%N A085963 Denominators of Farey fractions with prime numerators and denominators.
%o A085963 (PARI) \ Farey sequence of order n fareyct(n) = { forprime(x=2,n, y = 
               farey(x); \ print1(y","); ) } farey(n) = { c=0; m=n*(n-2)+2; a=vector(m); 
               forprime(x=1,n, forprime(y=x,n, v = x/y; if(v<1, c++; a[c]=v; ) ) 
               ); a = vecsort(a); c=0; for(x=2,m, if(a[x]<>a[x-1] & a[x]<>0, print1(numerator(a[x])",
               "); c++; ) ); return(c) }
%Y A085963 Cf. A085692.
%Y A085963 Sequence in context: A141334 A129488 A053670 this_sequence A153098 A119280 
               A160585
%Y A085963 Adjacent sequences: A085960 A085961 A085962 this_sequence A085964 A085965 
               A085966
%K A085963 easy,nonn
%O A085963 3,1
%A A085963 Cino Hilliard (hillcino368(AT)gmail.com), Aug 17 2003