A364455 Record values of A365196.

2, 3, 4, 5, 6, 8, 18, 53, 94, 97, 98, 106, 132, 148, 150, 153, 155, 165, 204, 312

Offset

1,1

Links

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

Formula

a(n) = A365196(A365239(n)).

Example

a(1) = 1 with A365196(0) = 2.
a(2) = 2 because A365196(1) = 3.
a(3) = 4 because A365196(9) = 4 is the first term of A365196 greater than 4.

Maple

f:= proc(k) local j;
  for j from 0 do if not numtheory:-issqrfree(2^j+k) then return j fi
  od;
end proc:
A:= 2:  m:= 2: count:= 1:
for i from 1 by 2 while count < 19 do
  if i mod 3 <> 0 and m >= 6 then next fi;
  if i mod 5 <> 0 and m >= 20 then next fi;
  v:= f(i);
  if v > m then A:= A, v; m:= v; count:= count+1;  fi;
od:
A;

Mathematica

r = 0; Rest@ Reap[Do[k = 0; While[SquareFreeQ[2^k + i], k++]; If[k > r, Sow[r]; r = k], {i, 0, 2^16}] ][[-1, 1]] (* Michael De Vlieger, Aug 27 2023 *)

Crossrefs

Cf. A365196, A365239.

Sequence in context: A133706 A081710 A373933 * A358175 A241947 A128421

Adjacent sequences: A364452 A364453 A364454 * A364456 A364457 A364458

Keyword

nonn,more

Author

Robert Israel, Aug 27 2023

Extensions

a(20) from Michael S. Branicky, Aug 30 2023

Status

approved