A091697 Values of m corresponding to members of A088966.

2, 3, 5, 9, 17, 33, 65, 35, 129, 257, 513, 1025, 2049

Offset

1,1

Comments

For every k >= 0, 2^k + 1 is in the sequence.

Links

Table of n, a(n) for n=1..13.

Example

a(2) = 3, corresponding to A088966(2) = 8 because A007947(8) = A007947(3+1) and A007947(3) = A007947(8+1).

Maple

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

Crossrefs

Sequence in context: A351361 A324767 A005257 * A109740 A248155 A000051

Adjacent sequences: A091694 A091695 A091696 * A091698 A091699 A091700

Keyword

more,nonn,less

Author

David Wasserman, Jan 29 2004

Extensions

a(13) from Robert Israel, Aug 11 2014

Status

approved