reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
2, 3, 5, 9, 17, 33, 65, 35, 129, 257, 513, 1025, 2049
rad:= n -> convert(numtheory:-factorset(n), `*`):
count:= 0: lastr:= rad(1):
for n from 2 to 10^7 do
newr:= rad(n);
P[lastr, newr]:= n-1;
if assigned(P[newr, lastr]) then
count:= count+1; A[count]:= n-1; M[count]:= P[newr, lastr];
fi;
lastr:= newr;
od:
seq(M[n], n=1..count); # Robert Israel, Aug 11 2014
a(13) from Robert Israel, Aug 11 2014
approved
editing
_David Wasserman (wasserma(AT)spawar.navy.mil), _, Jan 29 2004
more,nonn,newless
Values of m corresponding to members of A088966.
2, 3, 5, 9, 17, 33, 65, 35, 129, 257, 513, 1025
1,1
For every k >= 0, 2^k + 1 is in the sequence.
more,nonn
David Wasserman (wasserma(AT)spawar.navy.mil), Jan 29 2004
approved