OFFSET
1,1
EXAMPLE
31261 is a term because 31261 = 43*727, 2*31261 - 1 = 62521 = 103*607, ..., 256*31261 - 1 = 8002561 = 7*1143223, ...
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; Do[If[f[n]&&f[2*n-1]&&f[4*n-3]&&f[8*n-7]&&f[16*n-15]&&f[32*n-31]&&f[64*n-63]&&f[128*n-127]&&f[256*n-255], AppendTo[lst, n]], {n, 31261, 5*9!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 04 2010
STATUS
approved