OFFSET
1,1
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
A006577[n_] := Length[NestWhileList[If[OddQ[#], 3*# + 1, #/2] &, n, # > 1 &]] - 1;
Select[Accumulate[Array[A006577, 500]], PrimeQ] (* Paolo Xausa, Oct 01 2024 *)
PROG
(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) }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Mar 26 2003
EXTENSIONS
Edited by Hauke Worpel and N. J. A. Sloane, Jun 03, 2003
STATUS
approved