OFFSET
1,1
COMMENTS
6=2*3, 26=2*13;2*26-1=51=3*17, 33=3*11;2*33-1=65=5*13;2*65-1=4*33-3=129=3*43, 247=13*19;2*247-1=493=17*29;4*247-3=985=5*197;8*247-1=1969=11*179, 247=13*19;2*247-1=493=17*29;4*247-3=985=5*197;8*247-1=1969=11*179;16*247-15=3937=31*127, 634=2*317;2*634=1267=7*181;4*634-3=2533=17*149;8*634-7=5065=5*1013;16*634=10129=7*1447;32*634=20257=47*431, ..
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}; g[n_, m_]:=Module[{a=1, x, y, z}, Do[x=2^k; y=x-1; z=x*n-y; If[ !f[z], a=0; Break[]], {k, 0, m}]; a]; q=0; e=5; lst={}; Do[e++; If[g[e, q]==1, Print[e]; AppendTo[lst, e]; q++; e-- ], {n, 0, 4*10!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 04 2010
STATUS
approved