A091697 - OEIS

A091697

Values of m corresponding to members of A088966.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

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

LINKS

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

KEYWORD

more,nonn,less

AUTHOR

EXTENSIONS

a(13) from Robert Israel, Aug 11 2014

STATUS

approved