%I #7 Oct 01 2013 17:57:36
%S 23,61,67,137,149,233,547,701,709,887,1583,1723,1777,2239,2459,2477,
%T 2693,3067,3167,3329,3881,3947,3967,4073,5333,5449,5839,6217,6709,
%U 6833,8221,8273,8501,8527,8641,9227,9341,10193,10729,10771,11939,12197,12347
%N Primes in A058633.
%o (PARI) xpcount(n,p) = { ct=0; sr=0; for(x=1,n, p1 = x; while(p1>1, if(p1%2==0,p1/=2; ct++,p1 = p1*p+1; ct++) ); if(isprime(ct),print1(ct" "); sr+=1.0/ct) ); print(); print(sr) }
%Y Cf. A058633.
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Mar 26 2003
%E Edited by Hauke Worpel and _N. J. A. Sloane_, Jun 03, 2003
|